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INTRODUCTION 

This book is for the Atari Personal Computer owner who wants to 
write programs using Atari BASIC. All of the literature supplied with 
the Atari computer is prerequisite reading, since this book will not 
explain the Atari BASIC commands. It will show you how to put Atari 
BASIC commands together, creating routines and programs. 

When I bought an Atari 800 early in 1980, the BASIC Reference 
Manual had not yet been printed. I had only three sources of 
information: some preliminary documentation from Atari, a few 
tutorial programs available in magazines, and some demonstration 
programs that were floating around at the computer stores. 

Now, the computer comes with a good BASIC Reference Manual 
and a beginners book on Atari BASIC. There are other manuals 
available from Atari on hardware, the Operating System (OS), and the 
Disk Operating System (DOS). Atari offers documentation for both the 
beginner and the advanced assembly language programmer. But what 
about the poor soul in the middle? How about the person who isn’t 
ready for the heavy stuff but wants to write some good BASIC 
programs? 

There are two sources of information available to this person. The 
first source is the many magazines that now carry Atari information 
and programs. I’ve written a few of these magazine tutorial programs 
myself, so you may recognize some of the program listings in this book. 

This book is the other source. I learned a great deal from those 
early demo programs and magazine tutorials, so I wrote this 
compilation of program listings, with accompanying introductions. 
Looking at a program listing that contains descriptive variables and 
REM statements and then watching the program run is a great way to 
learn programming. Of course this is true only if you understand the 
BASIC commands. 

Atari BASIC Routines supplies you with many short programs and 
routines, and a few medium-sized programs. They are easy to follow 
and can be used in writing your own programs. The key to 
understanding is experimentation. First use the programs and routines 
as they are — then modify them and see what happens. Dig in and use 
the Reference Manual to help you with your experimentation with, and 
understanding of, BASIC routines. 

A few utility routines have been added for those who have disk 
systems. Although some of the programs require a disk system, most 



will run on any ATARI 400 or 800 with 16K RAM. Those that require 
disk will require a minimum of 24K RAM. 

I can’t teach someone else how to be a BASIC programmer. You 
have to teach yourself. But if you want to write programs using Atari 
BASIC, this book plus reference manuals plus the will to learn equals 
all the tools you need! 

ATARI is a registered trademark of ATARI INC. 
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Chapter 1 

Common Subroutines (ENGLISH) 

ENGLISH is a collection of subroutines designed to demonstrate 
themselves. The program name, ENGLISH, describes the programming 
style used in the selection of variable names. Take a quick look at the 
program listing and you’ll see what I mean. It is so easy to read that 
even a beginner can understand it! 

There is only one routine that might be a bit confusing. As you 
select an option, it changes from normal to inverse video. The routine 
used to accomplish this begins at line 400 and ends at line 404. Here’s 
how it works. 

We set a TRAP to line 200 so that if anything goes wrong, the 
options will just reappear on the screen. GOSUB KEY sends the 
program to line 45 which is used to get a key typed by the user and 
return its value (- 48) as the numeric variable K. We subtract 48 so 
that K is equal to the actual number of the selected option. Returning to 
line 400, we set the variable PITCH equal to K*10, and go off to the 
subroutine at line 35. Here we create a pinging sound and then 
RETURN once again to line 400. Finally, we position the cursor at the 
beginning of the selected option on the screen. 

At line 402, we begin a FOR NEXT loop using my initials as the X or 
horizontal coordinate. The cursor will start at the horizontal position 9, 
and move from left to right. The GET #4 will read what is on the screen 
since IOCB #4 was previously opened as device S (the screen). The 
variable 12 in the OPEN command specifies READ and/or WRITE. As 
each character is read from the screen, it is stored in the variable IT. 
We add 128 to IT creating the inverse video of the character we read. 

At line 404, we reposition the cursor and PUT IT back on the 
screen. Using the FOR NEXT loop, the line is redrawn and highlighted 
by inverse video. 

0 REM hThRI BASIC SUBROUTINES IN ENGLISH BY JERRY WHITE 

1 REM ORIGINALLY PUBLISHED BY ZAPhTA MICROSYSTEMS 

2 R EM 

.1: REM THIS IS A TUTORIAL PROGRAM DESIGNED TO DEMONSTRATE ITS 
E L F 

4 REM 

5 REM BEGINNERS NILL FIND THE SUBROUTINES USEFUL IN DEVELOP! 
MG PROGRAMS 

A R Ft t 

'■ REM LIST THE PROGRAM TO DISK OR CASSETTE AND START A LIBRA 
R V OF ’A T T B R OU TINE S 
S R Ft 1 

3 REM VARIABLE DEFIN1TION 

1 (i 2 ER O - Q : NON ~ 1 : TEN - 1 Q : TIMEO -20: SECONDS = 2 1 : KOLOR = 25: QUI ET- 3Q 
:hNOTE-35 

1 2 TMO:.:.NOM4 WON : BLI NIC -40 : KEY = 4 5 : BUTT ON = SO : BUZZ=SS : WAIT = SO : SM.D 
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13 REM OPEN IOCE «4 AS THE SCREEN THEN SET TIMER TO ZERO 

1 4 OPEN «4,12,0, "S : *■ : GO SUE: 20 

IS REM DIMENSION STRINGS AND SKIP OVER SUBROUTINES 

1 S DI r 1 SU B t (T EN :• , HEADING! 1 < 30) : G OT O 2 0 0 

IS REM LINE 20 RESETS TIMER AND LINE 21 GETS THE CURRENT TIM 

E 

2 : 0 F OR L O C AT I ON =13 T O 20 : P OK E L O C AT I ON .ZERO: N EXT L O C AT I ON : R E 

TURN 

21 s E C = O:FOR L O C ATION=18 TO 2 O:S EC = SEC»256+PEEK(L OCATION) :NE 
: :T LOCATIOM:SEC = INT <sEC/60) :RETURN 

24 REM SET GRAPHICS MODE AND BACKGROUND COLOR 

25 GRAPHICS Z ERO:SET C O L OR TWO,C,TWO:R ETURN 

29 REM TURN OFF ALL SOUNDS 

30 F OR O F F = ZER O TO 3:S GUN D OFF,ZER O,ZER O,ZER O:N EXT OFF:RETUR 

N 

34 REM PING SOUND ROUTINE 

3 S F OF: V O LUM E=T EN TO Z ER O ST E F - W ON ISOUND ZERO, FITCH , T EN , V O L 
T_T M E : N EXT V O L U M E : R ETUR N 

3 9 F: E M E: LIN K IN V E F: S E V IDE O 

40 C OUNT = 30:FOR B LINKS =N ON TO 3:POKE 755,3:GOSUB WAIT:POKE 7 
5 5,TWO:GOSUB W AIT:N EXT B LINK S:R ETURN 

44 REM GET FROM KEYBOARD AND RETURN NUMBER AS K 

4 5 C L OS E »TWO:OPEN »TWO,4,ZERO,"K:":GET «TWO.KlCLOSE «TWO:K = 

K - 4 8 

4 6 IF K > 9 THEN '? :.7 CHR!(K) :RETURN 

47 7 : '? OPTION ";K:RETURN 

4 9 REM SENSE BUTTONS (. E) 

50 POKE 752,WON\7 :7 "PRESS OPTION FOR OPTIONS" 

51 B = P E EK (53279) : IF B = 3 THEN POSITION 8,20:7 •• 

•• : RETURN 

52 IF B = S THEN POSITION 8,20:7 "SELECT KEY WAS PRESSED"I GOTO 


5 1 

S3 IF B=S THEN POSITION 8,20:7 " START KEY WAS PRESSED":GOTO 


5 1 

54 GOTO 51 

55 REM MAKE CONSOLE BUZZER SOUND 

5 6 FOR C OUNT =W ON TO 50:POKE 53279,WON:NEXT COUNT:RETURN 

59 REM HESITATION ROUTINE 

6 0 FOR ST ALL =W ON TO COUNT:NEXT STALL:RETURN 

64 REM TURN ON A SOUND 

6 5 S OUMD VOICE,PITCH,DIST,VO LUM E:R ETURN 

99 REM IF YOU GOT HERE, YOU DIDN'T ENTER THE PROGRAM CORRECT 

LY 


100 7 :7 "CHECK YOUR PROGRAM. YOU SHOULD NEVER":7 :7 "GET T 

O LINE 100.":STOP 

199 REM RESET ANY TRAPS, PICK A RANDOM COLOR, GOSUB, 

RN OFF THE CURSOR 

200 TRAP 40000 : C=RND (ZERO) **1 6 : GOSUB KOLOR : POKE 762, WON 

219 REM SUBROUTINE MENU (LINE 220...TYPE ALL WITHIN QUOTES U 
SING INVERSE VIDEO 

220 HEADING!: 


THEN TU 


240 POKE 82,9:POSITION 9,2:7 HEADING* 

250 7 :7 "1 SET CLOCK TO ZERO" 

260 7 :7 "2 PRINT SECONDS" 

270 7 :7 "3 SHUT OFF ALL SOUND" 

280 7 :7 "4 ONE SHORT CLEAR SOUND" 

290 7 :7 "5 BLINK INVERSE VIDEO" 

300 7 :7 "6 SOUND THE BUZZER" 

310 7 :7 "7 TURN ON A SOUND" 

320 7 :7 "8 EXIT THIS PROGRAM" 

399 REM READ FROM SCREEN AND CHANGE TO INVERSE VIDEO 

400 TRAP 200:GOSUB KEY:PITCH=K*10:GOSUB ANOTE:FOSITION 9,K*T 
WO+TWO 

402 FOR JW=9 TO 32:POSITION JW,K*TWO+TWO:GET »4,IT:IT=IT+128 


404 POSITION JW,K*TWO + TW O:PUT »4,IT:NEXT JW 
410 COUNT=100:GOSUB WAIT 

420 GOSUB K*1000:GOSUB WAIT:GOTO 200 

1000 GOSUB TIME0: GOSUB KOLOR : POSITION 9,5:^' "THE CLOCK HAS B 

EEN": 7 :7 "SET AT ZERO.":GOSUB BUTTON:RETURN 

2000 GOSUB SECONDS:GOSUB KOLOR:POSITION 9,5:7 SEC;" SECONDS 
ELAPSED.":GOSUB BUTTON:RETURN 

3000 GOSUB QUIET:GOSUB KOLOR:POSITION 9,S:7 "ALL SOUNDS ARE 

O F F .":G OSU B BUTT ON:R ETURN 
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4-000 GO SUB KOLOR : POSITION 9,5:7 ■■TYPE PITCH (0-2SS) :TRAP 4 
000:1 N F' LTT PIT CH : TRAP 40000:G OSU B AN OT E : R ETURN 
S000 GOSUB ELINK:RETURN 
S0 O O GOSU E BUZZ:RETURN 

7000 G O SU E K O L OR :7 :7 :7 • «TY P E V OICE < 0-3) •• J : TR AP TO 0 0 : IN PUT 
VOICE:TRAP 40000 

70 10 IF VOICE < ZERO O K V OICE >3 THEN 7000 

7 1 0O ■•TYPE PITCH •: 0 -2SS ;:•■■;: TRAP 7100: INPUT PITCH :TRA1' 4 

0 00 O 

7 110 IF PITCH < Z ER O OR PITCH > 255 THEN 710© 

7200 7 17 ••TYPE DISTORTION AS-:? •■© 2 4 S 8 10 12 OR 14"; : TT-: 

HP 7200:INPUT DIST:TRAP 40000 

7210 IF DIST ZERO OR DIST>14 THEN 7200 

7 220 IF DI ST/TN O < I NT ( DI ST/TW O :• TH EN 7200 

7 3 0 0 7 : 7 • 'TV P E V GLUM E (1-15)"; : TR AP 7300 : IN PTTT \/O LUM E : TR A P 

4 0000 

7310 IF VO LUM E <Z ER O OR VO LUME>1S THEN 7 300 
^400 GOSUB SND:RETURN 

7939 REM RESET LEFT MARGIN TO TWO, RESET GRAPHICS MODE TO CL 
EAR THE SCREEN 

80 00 POKE 8 2, TWO : GR APHICS ZER0:7 : 7 • • Your uj ish i = my co 

mm a rid ! ■■ ; 

3 0 10 RUN ■ • D:MENU • • 

8099 REM SET THE BACKGROUND COLOR TO DARK BLUE, CLOSE SCREEN 
I OCR 

81O© SETCOLOR 2,7,ZERO:CLOSE «4:END 
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Chapter 2 

Using the Paddles (PADDLE) 

The PADDLE program demonstrates PADDLE value interpretation 
and also provides a quick and easy way to hear many of the sounds 
your computer can produce. 

Plug the paddles into controller jack #1. The left paddle is 
PADDLE(O) and the right paddle is PADDLE(l). Use PADDLE(O) to 
change PITCH and PADDLE(l) to change VOLUME. The red trigger 
button on PADDLE(O) is used to change DISTORTION. Press any key to 
list the program onto the screen. 

This little program uses a few pokes you may not have seen before. 
Notice that in line 140, there are pokes to locations 710 and 712. The 
number poked into both locations is 145. In GRAPHICS 2, these 
locations contain the background colors of the text and graphics 
windows. The number 145 produces a dark turquoise color. The same 
color could have been achieved using SETCOLOR 2,9,l:SETCOLOR 
4,9,1. Using the POKE commands to set colors is one way to save a few 
bytes of memory. The number 145 was selected by multiplying the 
desired color (9) by 16, then adding the desired luminescence (1). 

You may have also noticed POKE 77,0 in line 310. Did you ever 
walk away from your computer and return a few minutes later to find 
the screen changing colors? This is called the attract mode. It is a 
safety feature which is built in so that a constant image on the screen 
does not become burnt into your TV screen. If no key is pressed for 
more than seven minutes, the color changes will begin automatically. 
Since these color changes might be undesirable in games where the 
keyboard is not used, put POKE 77,0 in your program in a line that will 
be used whenever a trigger is pressed. This will allow the attract mode 
to function if the computer is not being used, but avoid it when it is not 
necessary. 

0 REM PADDLE <cO 19S1 by Jerry White 11 /6/81 

1 REM DEMONSTRATION USING PADDLES TO MANIPULATE A SOUND COMM 
AND 

2 REM 

1 4 0 GRAPHICS 2 : POKE 752, 1 : POKE 710, 145: POKE '712, 1 45 : POKE 20 1 
,10:? CHR*(28) 

150 '? ,-PADDLE(0)=PITCH" 

1 6 0 •? , ■ • PTR IG(0 } = DI ST ORTI ON • • 

1 TO 7 , ••PADDLE < 1 ) sVOLUME" 

ISO 7 ,"PRESS ANY KEY TO END"; 

130 POKE 764,2SS 
200 VOLUME=2 

2 10 DI ST ORT I ON = 1 O 
2 20 DEL AV = 320 

230 PITCH = FADDLE (0) 


4 



4 0 IF F'TR I G i 0 > ~ 0 TH EM DI ST QRTI ON = DI ST ORTI ON + 2 : GOSU B DEL AY 
250 IF D I ST ORTION=16 THEN DI ST ORTION = 0 
260 VOLUr 1E = INT C PADDLE ( 1 )/10) 

-. "’ O 1F VO LUME 1S THEN VOLUME =1B 

200 IF PEEP; ' 764..' >255 THEN GRAPHICS 0 : POKE ?S4,2SS : : •? "LOA 

DING MENU"; :RUN ■■D : MENU" 

2 S 0 F O SITI ON 2,4:2 *6;“sound 0, PITCH DI ST ORT I ON V O 

LTJME ; ■* 

L: 0 0 S OUN D 0 , PIT CH , DI ST ORT I ON , V OLUM E 

B1 0 3ETCOL OR 0,DIST ORTIONj 10!SETCOLOR 1 ,VO LUME,10:POKE 7^,0: 
G OT O 2 3 0 

20 FOR WAIT=1 TO 100: NEXT NAIT :RETURN 
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Chapter 3 

Using the Joystick (JOYSTICK) 

JOYSTICK is a simple demonstration program which shows how to 
move an object by interpreting a joystick. This program alternates 
between draw and erase modes when the red trigger button is pressed. 

To begin, plug a joystick into controller jack #0. Move the stick in 
any direction or press the trigger to begin. 

Now move the graphics cursor around the screen. Press the 
trigger to toggle between drawing and erasing positions on the screen. 
Notice the value of STICK displayed in the text window. 

To exit the program and examine BASIC code, press any key. To 
pause the display, press and Q. To continue, press 3J3J and Qagain. 
NOTE: You can always abort a scrolling program display by pressing 

mm . 


10 REM JOYSTICK by Jerry White 11/S/81 
3 0 R EM 

40 GRAPHICS 17:? »S : n6:? «6;" JOYSTICK DEMO" 

50 •? »6:3 «S ; " BY JERRY WHITE" 

60 7 »©:•? «6 : 8 86 1? »G;" PLUG JOYSTICK INTO" 

70 ° ns:'? ns; " JACK NUMBER ONE." 

80 ? os:-? n S : 3 «S:S «S;"HOLD TRIGGER TO DRAW" 

yo •? 86;- RELEASE TO ERASE" 

100 IF STICK<0)0 IS THEN 130 
110 IF STRIG <0 • <>1 THEN 130 
120 GOTO 100 

130 X=19 :Y=1 0:REM STARTING POSITION 

140 GRAPHICS 3:POKE 764,2S5:POKE 7S2,1ISETCOLOR 2,0,0:S=STIC 
K < 0 : GOTO 2 90 

160 S=STICK(0):IF PEEK(764)<>2SS THEN GRAPHICS 0:POKE 764,25 
6 : *? : •? "LOADING MENU"; : RUN "D : MENU" 

160 IF S=1S THEN ISO 

170 IF S=S THEN X=X+l:Y=Y+l 

ISO IF S=S THEN Y=Y~1;X=X+1 

190 IF S=V THEN X=X+1 

200 IF S — 9 THEN X=X-1 :Y=Y+1 

210 IF S=10 THEN X=X-1IY=Y-1 

220 IF S=11 THEN X=X-1 

230 IF 8=13 THEN Y=Y+1 

240 IF S=14 THEN Y=Y —1 

250 IF X<0 THEN X=0 

260 IF Y < 0 THEN Y = 0 

270 IF X > 39 THEN X = 39 

280 IF Y >19 THEN Y=19 

290 3 ," STICK (0 ) =••; S 

3O0 POKE 53279 , 0:REM CLICK SPEAKER 

310 IF STRIG(0)=1 THEN 330 

320 PX=X:PY=Y:COLOR 1:PLOT X,Y:GOTO ISO 

330 REM TRIGGER PRESSED 

340 COLOR 0:FLOT PX,PY 

3S0 COLOR 1:PLOT X,Y 

360 PX=X!PY=Y:GOTO 150 
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Chapter 4 

Using a Timer (TIMER) 

The TIMER program demonstrates the use of the real time clock. 
The routine from line 11 thru line 13 calculates elapsed time based on 
the values in memory locations 18, 19, and 20. These values are 
converted into hours, minutes, seconds, and tenths of a second. 

The following routine creates a string called T$ used to store the 
time in a format which will be displayed on the screen. 

For demonstration purposes, this program will prompt the user for 
a number of hours and minutes and store these values in the variables 
TH (Timer Hour) and TM (Timer Minute). Set the computer’s clock to 
zero by poking this value into locations 18, 19, and 20. T$ will be 
updated and displayed until the time specified by the user is equal to 
the elapsed time. When this is true, the program loops and rings the 
console bell until a key is pressed. 

Using your Atari computer is an expensive way to create an alarm 
clock! However, this program does show you how to interpret the 
memory locations required to keep track of time. The program could be 
made more useful if a message were displayed when the alarm bell 
rings to remind someone to do a specific task at a given time. The 
routines in this demonstration could also be used to see how long it 
takes a player to solve a puzzle, or they could be modified to perform 
other timing tasks. 


S GOSUB 30 

11 F18=PEEK ( 1S)*2S6*2S6:PI8=F!B*PEEK(19)*2S6:P20=P19+PEEK(20 

) 

1 2 HR = INT < P20/216000) !MIN=INT (P20/3600) : SEC=INT (P20/60) -MIN* 
60-HR*60 


13 TSEC=INT(P20/6)-SEC*10-MIN*600-HR*36000 

14 T* = “ H H B" : I F HR <10 THEN T$(l , t )="0'*:Tt(2,2)=STR»(HR) 

:GOTO 16 

15 Tt>;2,2)=STF.*(HR) 

16 IF MIN <10 THEN Tf(4,4)="0":Ti(S,5)=STR*(MIN) :GOTO 18 

17 T*(4,5)=STR#(MIN) 

18 IF S E C < 1 0 THEN Tf (7, ?) =■■0" :Tt (8,8) =STR$ (SEC) :GOTO 20 

19 T$(7,S)=STR*(SEC) 

20 T*(1O,10)=STR*(TSEC) 

21 POSITION 5,8:3 »6;T$:IF TH=HR AND MIN=TM THEN 50 

22 GOTO 11 

30 GRAPHICS 0 : POKE '764,255: POKE 710,0:7 :7 :7 , “SET TIMER HO 


URS"; 

32 TRAP 30:INPUT TH:TRAP 40000:TH=INT(TH):IF TH<0 THEN 30 
40 7 :7 ,“SET TIMER MINUTES"; 

42 TRAP 40:INPUT TM:TRAP 40000:TM=INT(TM):IF TM>59 OR TM<0 T 
HEN 4 0 

44 POKE 18,0:POKE 19,0:POKE 20,0 

46 GRAPHICS 1 8 : DIM T* ( 11): POSITION 7,2:7 ttS \ 

48 POSITION 7,4:7 »6;-iJHEHB’^TH : POSITION 7,5:7 «S ; “flRIBBHB 1 ' : TM 
: RETURN 
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Chapter 5 

Interpreting the Keyboard (KEYDEMO) 

Your ATARI keyboard provides a considerable amount of power for 
screen editing. Many ATARI 400/800 owners don’t realize how lucky 
they are to have these features. Others simply aren’t aware of all the 
power at their fingertips. 

The KEYDEMO program needs little explanation since the program 
code contains many descriptive remark statements. This program was 
designed to point out the difference between a character’s ASCII value 
and its internal code value. The program also shows the purpose of some 
important memory locations like 16, 82, 83, 201, 752, 764, and 53774. 
Study the program listing to see how PEEK and POKE commands are 
used with these locations. 

It is important to note that the keyboard may be used as a device 
similar to the EDITOR (E:), CASSETTE (C:), DISK (D:), SCREEN (S:), or 
PRINTER (P:). The keyboard is a read-only device and may be opened as 
shown in line 360 of the KEYDEMO program. This provides the ability to 
GET a key as user input, bypassing the need to press RETURN when only 
a single-key response is required. 

Here’s a little helpful hint: Always POKE 764,255 before getting 
keyboard input. This is true no matter how the input is to be read by your 
program. POKE 764,255 tells the computer that the last key pressed was 
null, or that no key has been pressed. The user may have pressed a key 
long before your program is ready to read input from the keyboard. This 
simple POKE avoids lots of potential problems. 

For example, let’s assume you have a program that asks for the 
user’s name. Before this routine is executed, the user has pressed 
RETURN. When your program gets to the input routine, the computer 
has a 12 in location 764 which means the last key pressed was QJjJJjJJ]. If 
you don’t change the 12 to 255, your input routine may be bypassed. 
Remember to use this POKE and you will avoid this type of problem. 

Speaking of POKE routines, here’s one you can have some fun with. 

100 REM KEYBOARD DEMO (KEYDEMO) 

110 REM by Jerry White 10/13/81 
1 3d REM 

1 4 O F OKE 201,8:REM PRINT TAB WIDTH 
1 50 F OKE 82,2:REM LEFT M ARGIN 
1 6 0 FOK E 83,39 : REM Ft I GHT M ARGIN 
1 7 1 0 G OTO 270 : Fl EM BY F AS S SU BR OUT IN E 
180 REM 

1 9 0 REM CLEAR SCREEN & TURN OFF CURSOR 
200 GRAFHICS ©:POKE 752,1 
210 REM 
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220 REM DISABLE BREAK KEY 
2 3® T E ST = P E EK ( 1 S 

2401 IF TEST : 1 28 THEN TEST =TEST- 1 28 : POKE 1 6,TEST : POKE 537?4,T 
EST 

2SO RETURN : REM FROM SUBROUTINE 

>OQ REM 

2'7 0i GOSUE 190 

280 ■? ■■ THIS PROGRAM READS THE KEYBOARD" 

2 90 ■? •• AND DISPLAYS THE KEY PRESSED PLUS” 

3 0 O ."IT’S AT A S C I I V ALUE.” 

810 9 : 9 : 9 ,- PRESS START FOR MENU” I ? :9 

830 REM 

840 REM OPEN KEYBOARD AS DEVICE ttl 
3S0 REM TO READ ONLY 
36O OF'EN ttl , 4 , Ci , "K : •• 

3 8 0 R EM 

380 REM DISABLE CONTROL CHARACTERS 
390 POKE 786,1 

4 0i 0i R EM 

410 REM POKE LAST KEY PRESSED TO NULL 
4 2O POKE 7fe4,2SS 

4 3 0 R EM 

440 REM WAIT FOR KEY OR BUTTON PRESS 
4 S0 IF FEEK(764)=2SS AND PEEK(S3279)=7 THEN 4SO 
4 60 PUTT ON = FEEK (S3279) 

480 IF BUTTON=7 THEN 500 
490 IF BUTTON=6 THEN 800 


500 

GET 

ttl , K E' 




SI 0 

I F 

KEY--2 8 

TH EN 


,”ESC",KEY 

520 

I F 

KEY=28 

THEN 

9 

,"UP",KEY 

S 3 0 

I F 

KEY=29 

TH EN 

9 

,"DOWN",KEY 

S4 0 

I F 

KEY=30 

THEN 

9 

,"LEFT",KEY 

550 

I F 

KEY=31 

THEN 

9 

,"RIGHT",KEY 

S 6 0 i 

IF 

KEY=32 

THEN 

9 

,"SPACE",KEY 


580 

I F 

K EY = 

1 SS 

THEN 

o 

, 

■RETURN" , KEY ; 


S80 

I F 

K EY = 

1 25 

THEN 

9 


•CLEAR" , KEY' 


S 9Gi 

I F 

K EY = 

1 58 

THEN 

*7 


■INSERT SPACE 

• •; K EY 

6 00 

I F 

K EY' = 

2SS 

THEN 

o 


•INSERT LINE ■ 

•; K EY 

6 1 0 i 

I F 

K E Y = 

1 56 

THEN 

9 


■DELETE CHAR ■ 

■; KEY' 

620 

I F 

K E Y = 

2S4 

THEN 

9 


•DELETE LINE • 

■; KEY' 

630 

I F 

K EY = 

1 28 

THEN 

9 


■CLR TAB",KEY 


640 

I F 

K EY = 

1 58 

TH EN 

9 


•SET TAB",KEY' 


6S0 

I F 

K E Y = 

1 59 

THEN 

■7 


•TAB",KEY' 


660 

9 , 

CHR* (KEY 

’ > , K EY 





680 

K EY 

' S =K E 

YS+ 1 

: I F K 

EYS05 THEN 390 



690 FOR WAIT =1 TO SO:NEXT WAIT 
690 REM 

800 REM POSITION CURSOR 
810 REM ENABLE CONTROL CHARACTERS 
820 KEYS=0:POSITION 2,9:POKE 866,0 
830 REM 

840 REM DELETE OLD DISPLAY 

8S0 FOR DELETES 1 TO 10:9 CHR $(156) ; :N EXT DELETE 
860 REM 

880 REM GO TO BEGINNING OF MAIN LOOP 
8 S O GOTO 390 
890 REM 

800 REM ENABLE BREAK KEY 
810 P OKE 16,64:POKE 53774,247 
820 REM 

830 REM ENABLE CONTROL CHARACTERS 
840 POKE 866,0 
850 REM 

860 REM TURN ON CURSOR AND END 
880 POKE 852,0 
880 REM 

890 REM RESET PRINT TAB WIDTH 
90O POKE 201,10 
910 R EM 

920 REM CLOSE KEYBOARD DEVICE & EXIT 
930 CLOSE ttl : GRAPHICS 0:9 :9 "LOADING MENU",* 

10 


: RUN "D:MENU 




Chapter 6 

Setting the Stops (TABDEMO) 

One feature of the ATARI keyboard which is rarely used is TAB 
SET. When items must be displayed in columns on the screen, this 
feature is handy. 

TABDEMO provides an example that neatly formats six columns 
of random numbers on the screen by setting TAB STOPS. 

The random numbers selected in this case are less than one 
hundred. The program places a blank before any number less than ten 
to provide right-justified amounts. (See the RJUSTIFY program to see 
how larger numbers such as dollar amounts may be right justified.] 

The routine in line 20 clears the default tab settings. In line 40, the 
TABS are set. The program then goes on to place 112 random numbers 
onto the screen using our TAB STOPS to create a display that is neatly 
formatted and easy to read. 

In many cases, using tabs can replace complex string 
manipulations. Tabs also come in handy when used to position the 
cursor for keyboard input. Since the TABS command can be imbedded 
within a string using ESC, it can also be a memory saver when used in 
place of blanks or spaces to position information displayed on the 
screen. 


© REM TABS DEMO BY JERRY WHITE 
10 GRAPHICS 0:DIM BLANK#(5):BLANK$=" 

12 POKE 752,1: POKE ©2,2: POKE 83,38: POKE 201,10:*? 
20 FOR X=1 TO 6 : *? CHR* ( 1 27} ; CHR# ( 1 58) ; : NEXT X 
30 POKE 82,41? 

<40 FOR T AB= 1 TO 6 : 7 BLANK# ; CHR* (159);: NEXT TAB 

70 7 CHR* ( 1 25) : 7 ,*■ TAB DEMO" : 7 

80 FOR NUMBERS1 TO 1 1 2:R AN = INT(RND(0)*100) 

90 IF RAN <10 THEN 7 •' "l 

100 7 RAN;CHR*(127);:NEXT NUMBER 

110 7 :FOKE 82,2:7 PRESS START FOR MENU”; 

120 IF PEEK(53279)<>6 THEN 120 

130 GRAPHICS 0:7 :7 "LOADING MENU";:RUN "DIMENU" 
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Chapter 7 

Right Justified Amounts (RJUSTIFY) 

Many versions of BASIC have a command called PRINT USING 
which is used to format data for display or printing. Columns of figures, 
such as dollars and cents, are much easier to read if they are right- 
justified. PRINT USING is a handy command to have in situations like 
this. Unfortunately, ATARI BASIC does not have this command. 

RJUSTIFY demonstrates a method of string manipulation which 
simulates PRINT USING. Used as a subroutine, dollar and cent amounts 
may be right-justified within a string and then displayed, printed, or 
stored in a data file. 

For this demonstration, rim the program, and enter the following 
amounts. 


2.51 10 1.1 

Instead of entering a fourth amount, press 1:1*111:1?! . Notice that the 
amounts line up along the right edge of the screen. 10’s displayed as 
10.00, and 1.1 is displayed as 1.10. This routine adds zeros to the right of 
the decimal point as needed to display dollars and cents in a standard 
format. When the user enters data, he or she need not bother typing .00 
after an even dollar amount. {Of course if the decimal point and zeros 
are entered, no harm is done.) 

This program requires very little explanation other than some 
variable definitions. RJA$ is the Right Justified Amount. TEMP$ 
temporarily stores the amount as a work string. AMOUNTS is the 
amount as it is entered by the user, and B$ is a string of ten blanks. DS$ 
is used when printing the total, and adds a dollar sign to the left of the 
right-justified total. 

I 00 REM RJUSTIFY BY JERRY WHITE 

1 1 0 DIM R JA* (10) , TEMP* (10) , B* C 1 0 > , AMOUNT* (10!) , DS$ (11) 

120 B* = • • •• :R JA*=B* :TEMP*=E* 

130 GRAPHICS 0:SETCOLOR 2,0,0:POKE 201,11:POKE 82,1:POKE 83, 

14 0 •? : •? ■ • ENTER AMOUNTS OF LESS THAN ONE MILLION" 

ISO •? : •? -PRESS RETURN FOR TOTAL FUGHT JUSTIFIED" I? : GOTO 20 

0 

ISO RJAf = MM :W ORK = INT(10 0*AMOUNT)/I00:IF WORK = 0 THEN RJA* = " 
O.O0”:RETURN 

170 IF WORK< O TH EN NORK=W ORK-0.01 
1 8O T EM P * = STR*< WORK + S.0E-03) 

1 90 RJA* = B* (. 1,11 -LEN (TEMP*) ) :RJA* (LEN (RJA$) + 1 ) =TEMP* C 1 , LEN CT 
EMP*)-1>:RETURN 

2O0 FOR BUZZ=0 TO 1O:POKE 53279,0:NEXT BUZZ 

210 *? "ENTER AMOUNT”;: INPUT AMOUNT*: IF LEN (AMOUNT*) =0 THEN 2 

6 0 

2 20 TR A P 200:AMOUNT=V A L ( AM OUNT♦) :TRAP 40000 
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— 4 : 0 IF AMOUNT &9989S. 39 OR AMOUNT <—99933.39 THEN 200 

24-0 RBI NEXT LINE FOLLOWING OPEN OUOTES = ESC-CTP.L-UP ARROW TH 

EN S SPACES 

sset Gost ' E ISOM? , ,“t RJft* :TOTAL=TOTAL+ AMOUNT : GOTO 200 


as® AMOUNT—TOTAL:GOSUB ISO 

2 TO FOR DSrl TO 10: IP R Jfl* < DS . DS) =•• ■■ THEN 230 
2S0 F: JA* ( DS- 1 , DS- 1 >="*••: DS*=RJft* : POP : GOTO 310 
230 M ENT DS 

300 BS* = "*": DS* (LEM CDS*)♦1 1=RJA* 

310 7 •'TOTAL". , " "IDS* 

320 POKE 301,1O:POKE @2.2:7 :7 " PRESS OPTION TO RERUN" 

■ r ' " PRESS START FOR MENU"; 

330 IF PEEK(S3279)=3 THEN RUN 
340 TP PEEK(S3279)<>6 THEN 330 

3S0 GRAPHICS 0:7 :7 "LOADING MENU"iIRON "D:MENU" 
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Chapter 8 

Dice Game-GR.O Graphics (DICE) 

DICE demonstrates the use of text mode graphics characters 
(GRAPHICS 0), and cursor control using the arrow keys. This simple 
one-player dice and game is known as CRAPS, and uses text mode 
graphics to display a pair of dice on the screen. 

Program lines 1 thru 6 contain the strings required for the display 
of a die. Inverse video was used to create white dice with dark circles 
to indicate each possible value from 1 thru 6. To display a die with a 
value of 1, GOSUB 1. To display a die which has a value of 2, GOSUB 2, 
and so on. 

The program begins by creating six dice strings. DATA in line 11 
creates WON$, DATA in line 12 creates TWO$, and DATA in lines 13 
through 16 creates the strings for the other four dice. Lines 17 through 
22 read this DATA, and create the display strings. 

To enter the characters used in our dice string WON$, use the 
following instructions. Note these abbreviations: 

AT = ATARI KEY 
SP = SPACE BAR 
DA = DOWN ARROW 
LA = LEFT ARROW 

WON$ = “AT SP SP SP AT (ESC CTRL + DA] (ESC CTRL + LA) (ESC 
CTRL + LA) (ESC CTRL + LA) AT SP CTRL + T SP AT (ESC CTRL + DA) 
(ESC CTRL + LA) (ESC CTRL + LA) (ESC CTRL + LA) AT SP SP SP AT SP” 

When playing Craps, the player starts with $1000 and may bet 
from $1 to $100 on each turn. On the very first roll, the player wins on a 
7 or 11, and loses on a 2, 3, or 12. If any other number occurs on the 
first roll, this becomes what is called the POINT. The player continues 
to roll until the POINT or a 7 is rolled. If the point is rolled before a 7 
pops up, the player wins. If a 7 is rolled before the point, the player 
loses. 

On each roll of the dice, the program goes to the subroutine 
beginning at line 100. Both dice change ten times to simulate rolling 
dice. In line 110, two random numbers are selected and stored in the 
variables Dl and D2. Line 120 sets a TRAP to line 130, positions the 
cursor, goes to the appropriate die display subroutine, and then 
executes an assembler subroutine. 
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Upon return from the assembler subroutine, a BASIC error will 
occur, hence the trap to the following line number. The assembler 
subroutine is actually part of the Operating System and creates a 
keyboard click. This is used to simulate the clicking of dice. Line 130 
does the same thing as line 120 for the second die. Line 140 contains 
the NEXT of the FOR NEXT loop, resets any traps, and then returns. 

The rest of the program plays the game as described in the rules. 
You may wish to experiment by adding an option for more than one 
player. If you understand the casino options of this game, you might try 
adding secondary betting. Have fun! 

0 GRAPHICS 0:FOKE 7S2,I:COTO 10:REM DICE DEMO BY JERRV WHITE 

1 *? WON*; : RETURN IREM 1 

2 •? TWO*; : RETURN : REM 2 

3 •? THREE* ;: RETURN : REM 3 

4 '? FOUR*;:RETURN :REM 4 

5 •? FiVE* ;: RETURN I REM, 5 

6 '? SIX*; : RETURN I REM S 

1 0 DIM WON* (1?) , TWO* Cl ?■) ,THREE* (17), FOUR* (17) , FIVE* ( 1 7 ) , SIX* 

(17) 


1 

1 


DATA 

1 

6 

0, 

1 

60 , 

1 

60 , 

29, 

30, 

30, 

30, 

1 

60, 

1 

43, 

1 

60, 

29, 

30 , 

30, 

30, 

1 

60 , 

1 

6 

0 

, 1 60 
























1 

2 


DATA 

1 

4 

8 , 

1 

60, 

1 

60, 

29, 

30, 

30, 

30, 

1 

60, 

1 

60 , 

1 

60, 

29, 

30 , 

30, 

30 , 

1 

60, 

1 

6 

0 

, 1 43 
























1 

3 


DATA 

1 

4 

8 , 

1 

60, 

1 

60 , 

29, 

30, 

30, 

30, 

1 

60, 

1 

48, 

1 

60 , 

29, 

30, 

30, 

30, 

1 

60, 

1 

6 

0 

,143 
























1 

4 


DATA 

1 

4 

8 , 

1 

G© , 

1 

48 , 

29 , 

30, 

30 , 

30 , 

1 

60 , 

1 

60, 

1 

60 , 

29, 

30 , 

30 , 

30 , 

1 

48, 

1 

6 

0 

, 1 48 
























1 

C7 


DATA 

1 

4 

8 , 

1 

60 , 

1 

48, 

29, 

30, 

30, 

30, 

1 

60, 

1 

43, 

1 

60 , 

29, 

30, 

30, 

30, 

1 

43, 

1 

6 

0 

, 1 48 
























1 

6 


DATA 

1 

4 

8, 

1 

43, 

1 

43, 

29, 

30, 

30 , 

30 , 

1 

60, 

1 

60, 

1 

60 , 

29, 

30 , 

30 , 

30, 

1 

48 , 


143,148 

IT 1 FOR DI C E = 1 TO 17IREAD IT !W ON ♦ (DICE, DICE) = CHR * (IT) : N EXT DI 

CE : GO SUE; l : ? : •? 

IS FOR DICErl TO 17:READ IT:TWO*(DICE,DICE)=CHR*(IT):NEXT DI 

C E : G O SU E 2 :'? S'? 

19 FOR DIC E =1 TO 17:READ IT:THREE*(DICE,DICE)=CHR*(IT) INEXT 

DICE:GOSUB 3:? :? 

20 FOR DIC E =1 TO 17:READ IT:FOUR*(DICE,DICE)=CHR*(IT) INEXT D 

ICE : GO SU E 4 S ^ S'? 

21 FOR DIC E =1 TO 17SREAD ITSFIVE*(DICE,DICE)=CHR*(IT) SNEXT D 

ICE S GOSUE S S ? S'? 

22 FOR DICE=1 TO 17 S READ ITSSIX*(DICE,DICE)=CHR*(IT) SNEXT DI 

CESGOSUE 3 

23 FOR DIC E =1 TO 200SNEXT DICE 

25 GRAPHICS 0SSETCOLOR 2,1 1,0 SPOKE 82,2 SPOKE S3,39 SPOKE 20 1, 
10:POKE 752,1 

30 ? S'? , "TEXT MODE GRAPHICS"!'? :STAKE=1000 

40 '? S'? ," CRAP GAME" S GOTO 200 

100 FOR TIM E =1 TO 10 

110 D1=INT(RND(0)*6)+1SD2=INT(RND(0)*S)+1 

120 TRAF 130S FOSITION lS,S:GOSUB D1 SCLICK=USR(64728) 

130 TRAP 140:POSITION 22,6:GOSUE D2 S CLICK =USR(64728) 

140 NEXT TIME STRAP 40000sRETURN 

200 SETCOLOR 4,11,0:ROLL=0SPOSITION 13,12:? "YOU HAVE *";STA 
KEJ" 

210 POSITION 12,14:FOR ERASE=1 TO 6 S ? CHR*(156);SNEXT ERASE 

211 POSITION 13,14:POKE 752,0S? "PLACE YOUR BET";:GOSUE 2000 
: POKE '764,265 

212 TRAP 1000:INPUT BET STRAP 40OO0:POKE 752, 1 S? " "SIF EET = 0 
THEN 3000 

220 EET = INT(BET) SIF BET <1 OR BET>100 THEN 1000 
230 ROLL=ROLL+1SIF ROLL>l THEN 300 
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24-e GOSUB 1 O 0 : T OT hL = D1 + D2 : IF T0TAL = 2 OR T OT AL = 3 OR TOTAL=12 

THEN 500 

250 IF TOTAL=7 OR TOTAL=l1 THEN 600 

260 PPOINT=TOTAL:POSITION 13,14:? "YOUR POINT IS "JPPOINT;" 
270 GOSUB 300:GOTO 230 

300 GOSUB 100:TOTAL=D1+D2:IF TOTAL=7 THEN 600 

3 10 IF T OT A L < > F P OI NT TH EN G O SU B 900 : G OT O 230 

320 GOTO 600 

500 SETCOLOR 4,4,4:REM CRAPS YOU LOSE 

610 POSITION 13,141? "YOU LOSE *";BETJ" »:STAKE=STAKE 

- E ET 

520 FOR PIT CH =150 TO 250:SOUND 0,PITCH, 10,4:SOUND 1 ,PITCH+2, 
10,4 

622 SOUND 2,PITCH+4,10,4:SOUND 3,PITCH+5,10,4:NEXT PITCH 
524 FOR OFF-0 TO 3:SOUND OFF,0,0,0!NEXT OFF 

526 IF STAKE<=0 THEN GOSUB 900: GRAPHICS O : *7 : 7 "EASY COME, E 

A SY GO":? :END 

530 GOSUB 300:GOTO 200 

600 SETCOLOR 4,1, 1 2 : R EM T’/'l 1 OR POINT. . . .YOU WIN 

6 1 0 POSITION 13,14:*? "YOU WIN IBET,*" ": STAKE = STAKE 

+ BET 


620 

F OR 

PITCH=260 

TO 

10 STEP 

-I©: 

: SOUND 

0 , 

PITCH,10,10:NEXT 

TCH 

FOR 

VOLUME=16 

TO 

0 STEP 

-0.5: 

: SOUND 

0 , 

0,2,VOLUME:SOUND 


1,2,VOLUME 

6 24 S OUND 2,2,2,VOLUME:SOUND 3,3,2,VOLUME :NEXT V OLUME 
6 3 0 GOSU B 3 00:G OT O 200 

900 F OR WAIT = 1 TO 200:N EXT WAIT:RETURN 

1000 FOKE *752, 1 : POSITI ON 13,14:-? "BET FROM 1 TO 100 : GO 

SU B 2000: G O SU E 300 : G OT O 210 

2000 FOR BUZZ=1 TO 20:POKE 53279,0:NEXT BUZZ:RETURN 
3000 GRAPHICS 0:7 : *? "LOADING MENU"; : RUN "D:MENU» 
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Chapter 9 

Mixed Graphics Modes (MODE 123) 

MODE123 demonstrates a screen using three different graphics 
modes at the same time. Combinations of these graphic modes are 
possible. Although MODE123 contains meaningful variable names and 
REM statements, you will also need the following information as you 
create your own DISPLAY LISTS. 

DEFINITIONS: 

ANTIC is a microcomputer in the Atari 400/800 which is dedicated 
to the video display. Antic has a user-programmable instruction set, a 
program called display list, and display memory. 

Display list specifies display options, display modes used to 
interpret screen data, and where screen data may be found. 

JUMP/WAIT is an instruction to ANTIC which is followed by two 
bytes that point to the beginning of display list. 

Mode lines are groups of scan lines. The screen consists of 192 
horizontal scan lines. A mode line is a group of scan lines based on the 
BASIC or ANTIC display mode being used. 

O.S. modes are mode numbers that are recognized by the 
Operating System. O.S. modes are numbered thru 15, so there are more 
O.S. modes than BASIC Graphics or Display Modes. 

Pixels are units of vertical distance on the TV screen. There are 
192 pixels in each vertical line of display. Remember that magic 
number—192! 

There is some valuable information on modes and screen formats 
on the inside back cover of your Atari Basic Reference Manual. That 
chart, combined with the information supplied here, will provide all 
you need to create your own display lists. 

All screen displays must consist of 192 scan lines. In other words, 
the screen is 192 scan lines high. To calculate the number of scan lines 
in a row of a Basic Graphics Display Mode, use the Table of Modes and 
Screen Formats to find the number of rows in a full screen. Take, for 
example, good old Graphics Mode 0. Look up the number of vertical 
rows in a FULL SCREEN. That number is 24. Divide 192 by that number. 
192/24 = 8. That means that there are 24 rows, each being 8 scan lines 
high, in the Graphics Mode 0 display. 
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Study the MODE123 demonstration program carefully. When 
creating a display list, you must begin with a Basic GRAPHICS 
command. Use the mode that requires the most memory in your new 
display list. In MODE123, this is GR.l which uses more memory (RAM) 
than either MODE 2 or 3. 

The routine at line 200 locates the DISPLAYLIST. The POKE at line 
210 is used only if the mode at the top of the screen is NOT the one 
which uses the most memory. Since we have MODE 2 at the top, we 
must do this POKE to one location before the DISPLAYLIST. The 
following little chart was used to find the number to be POKEd, 
depending on the Basic Graphics Mode: 

GRAPHICS MODE 12345678 

66 70 71 72 73 74 75 77 79 

To find the following pokes into our new DISPLAYLIST, we use the 
same chart but subtract 64. 

First we must determine how many lines of each mode we will 
have on the screen, making sure the total number of scan lines comes to 
the magic number of 192. This will take some thought and calculation 
on your part. (Nobody said this stuff was easy!) Then we use POKEs 
into memory creating our own ANTIC program. 

Look again at the MODE123 program. Line 220 and 230 POKE the 
number 7 into DISPLAYLIST + 1 and + 2. That’s MODE 2. The number 
7 was determined by subtracting 64 from 71. 

We don’t have to change the next two locations since they already 
contain the number 70 for Graphics Mode 1. 

We use the loop at line 240 to change 16 locations to Graphics 
Mode 3 by poking the number 8 (72-64). 

Our final task is to loop our ANTIC program back to the beginning 
of the DISPLAYLIST. Line 250 POKEs in the number 65 which tells 
ANTIC to JUMP and WAIT. Lines 260 and 270 tell ANTIC where to 
JUMP which creates a loop. ANTIC executes this loop 60 times per 
second which creates the screen display. 

The rest of the program is self explanatory, with the execption of 
those POKEs to location 87. Before printing to the screen, POKE 87 with 
the Graphics Mode number of the line you are about to display. This 
location is where the O.S. gets it’s information on the display mode. 
Faking out the O.S. can create interesting results. Experiment and 
you’ll see what I mean. 
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Still confused??? After giving a reasonable try at creating your 
own display list, if you still don’t understand what’s going on, don’t feel 
bad. I had a hard time understanding it, too. You might try the easy 
way. 

There’s an easy way??? Now he tells me! Yes but there’s also a 
catch. (That figures. . .) 

As of August 1982 the company Educational Software was selling 
a great little package which contains a series of DISPLAY LIST editor 
programs. You don’t have to know what you're doing to use them. 

Good luck! 

1 00 REl 1 f 10DE123 f o ■ 1981 Jer-r y Nh i -t e 

1 1 O REM DISPLmV LI ST MODIFICATION 
120 REM 

130 GRAPHICS 1:P=0:DING=S80 
140 REM 

150 REM MODIFY DISPLAY LIST TO 
ISO REM DEMONSTRATE GRAPHICS MODES 
l^O REM 1, 2, AND 3 ON THE SCREEN 

180 REM AT THE SAME TIME 
190 REM 

20O DISPLAYLIST=FEEK(560)+PEEK<SSI)*256+4 
210 POKE DISPLAYLIST-1,71 
220 POKE DISPLAYLIST+2,7 
230 P OKE DISPLAYLIST+3,7 

240 FOR CH AN G E = S TO 21 :POKE DISFLAYLI3T+CHANGE,8:NEXT CHANGE 


250 POKE DISFLAYLIST+22,65 

26 O POKE DISFLAYLIST+23,PEEK(560> 

270 POKE DISFLAYLIST+24,PEEK(561> 

280 SETCOLOR 0,7,10 
290 SETCOLOR 1,11,10 
3O O S ET CO L OR 2,1,10 
31O SETCOLOR 3,4,10 
320 SETCOLOR 4,0,0 
33© POKE 87,2 

340 POSITION 5,0:PRINT »6;"THREE LINES":GOSUB DING 

3 50 POSITION 5,1 : PRINT »6;"OF GRAPHICS":GGSUE DING 
360 POSITION 6,2:PRINT ttS;"MODE TWO":GOSUB DING 
370 FOR WAIT =1 TO 1000:NEXT WAIT 

380 POKE 87,1 

390 POSITION 5,3:PRINT ttS;"two 1ines of":GOSUB DING 
40O POSITION 2,4:PRINT «6;"3raphics mode one":GOSUB DING 
410 FOR W AIT =1 TO 1000:NEXT WAIT 

420 DATA 17,13,18,12,19,11,20,11,21,12,22,13,21,14,20,15,21, 
16.22,17,21,18 

4 3 O D AT A 20.19,19,19,18,18,17,17 
440 POKE 87,3:FOR THREE=1 TO 15 
4 50 COL OR 3:R E A D X,Y:P L OT X,Y 

4 6© TOR VOLUME = 1 5 TO O STEP - 1 : SOUND O , X»3 ,10, VOLUME : NEXT \/O 
LUME 

470 NEXT THREE 

480 FOR LOOP=1 TO 10 

4 90 F OR X = 0 TO 39 : C O L OR I NT RN D •; 0 ~5 ) : PL OT X , 2 1 : N EXT X 

5 O O NEXT L O O F 

510 FOR BACK=255 TO O STEP -1 

5 2 0- POKE 712,BACK:FOR WAIT=1 TO 10INEXT WAIT 
530 NEXT BACK 

5 4 0 P ~ 2:G O SUE DIMG :P~5:G OSUB DIN G 

5 5 0 GRAPHIC S 0:7 :7 "L O ADIN G M ENU"; :RUN "D:M EMU ■ • 

560 REM 

570 REM DING SUBROUTINE 

580 FOR V O LUM E =15 TO O STEP —0.2:SOUND ©,P,2,VOLUME:NEXT VdL 
TJME : RETURN 
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DISPLAY LIST MODE CHART 


MODE 

O.S. 

NUMBER 

BASIC 

PIXEL LINES 
PER 

MODE LINE 

NUMBER OF MEMORY BYTES 
COLORS PER 

MODE LINE 

TEXT OR 
GRAPHIC 
MODE 

0 

— 

— 

— 


— 

* BLANK 

1 

— 

— 

— 


— 

JUMP 

2 

0 

8 

2 


40 

TEXT 

3 

NEW 

10 

2 


40 

TEXT 

4 

NEW 

8 

4 


40 

TEXT 

5 

NEW 

16 

4 


40 

TEXT 

6 

1 

8 

5 


20 

TEXT 

7 

2 

16 

5 


20 

TEXT 

8 

3 

8 

4 


10 

GRAPHIC 

9 

4 

4 

2 


10 

GRAPHIC 

10 

5 

4 

4 


20 

GRAPHIC 

11 

6 

2 

2 


20 

GRAPHIC 

12 

NEW 

1 

2 


20 

GRAPHIC 

13 

7 

2 

4 


40 

GRAPHIC 

14 

NEW 

1 

4 


40 

GRAPHIC 

15 

8 

1 2 

* Blank lines in Display List: 

2 = 16 

3 = 32 

4 = 48 

5 = 68 

6 = 80 

7 = 96 

8 = 112 

40 

GRAPHIC 


JUMP & WAIT =65 

This chart is being supplied as additional information. Do not con¬ 
fuse this chart with the Table of Modes and Screen Formats in your 
Atari Basic Reference Manual. 
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Chapter 10 

Text in Graphics Mode 8 (GR8TEXT) 

GR8TEXT demonstrates the placement of normal size text in the 
high resolution graphics window of GRAPHICS 8. The program code 
itself is a bit cryptic because it was designed to be as fast as possible 
without resorting to an assembler subroutine. 

Briefly, a string called TEXTS is interpreted and displayed at a rate 
of about 6 characters per second. For purposes of demonstration, the 
text window is used to prompt the user to enter the desired message. 

Screen coordinates X and Y are used to position the graphics 
window display. Wl and W2 hold the address of screen memory based 
on the X + Y coordinates. 

The string goes through a conversion from ASCII to display codes 
and is then actually drawn in the graphics window by the routine in line 
50. 

This routine allows you to add text to a high resolution graphics 
display. It can be used with a graph, as demonstrated (in a lower 
resolution graphics mode) by the GRAPH program in the next chapter. 


0 GOTO 100:REM GRST EXT BY JERRY WHITE 

4 0 W 1 = P E EK < 88) + P E EK ( 8 3 ) *2 S6 :W2 =M 1 + Y**4 0 + X:IF L EM < T EXT * > = O TH E 
M 200 

4 2 F OR M E = 1 TO LEM (T EXT * ) : X = Pi S C C T EXT * <.. M E , M E > ) :IF X >127 TH EM 
X=X-128 

44 IF X > 31 AMD X < 96 THEM X=X-32:GOTO 4© 

4 6 IF X < 3 2 THEM X=X+64 
4 © T EXT * ( M E , M E :< = CHR * ( X ) : M EXT M E 

SO FOR Z=1 T O L EM ( T EXT *) : X = A S C ( T EXT * < Z , Z > ) : N3 =57344 + X»8 : F OR 
ME = 0 TO 7 : POKE W2 + (1E*40 , PEEK (W3 + ME) :NEXT ME:W2=W2+1 :NEXT Z 
60 IF Y>100 THEM FOR Y=1 TO 300:NEXT Y:RUN 

•7 0 ■? EMT ER T EXT ■ ■ ; : IM PUT T EXT * : X = 1 0 : Y =Y +20:7 "UDISPL AY R AT E 
= 6 CHARACTERS PER SECOND' 1 ; : GOTO 40 

1 O O DIM T EXT 1(30) : X =S*.Y = 20 : GR A PH I C S 8 : T EXT * • ■ «-**** G r a ph i c s f 1 
ode S Text **»••: SETCOLOR 2,0,0: COLOR 1 

11O PLOT 13,18:DRAWTO 300,18:DRAMTO 300,30:DRAMTO 13,30:DRAM 
TO 13, 18:G OT O 40 

200 GR A PH I C S 0 : *? : •? ■ ■ L O A DIM G M EMU • • ; : RUN • • D : M EMU ■ • 
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Chapter 11 

Monthly Bar Graph (GRAPH) 

Atari graphics can be used not only in game programs, but also to 
display data. For example, monthly data can be compared using a 
graphic display. Once numeric data is entered for each month, the 
GRAPH program will display this data in a colorful bar graph. 

In line 120, we start by dimensioning three arrays. A$ is used as a 
work string, and the two numeric arrays will each store twelve items. 
Line 510 begins our input subroutine. One numeric amount is entered for 
each month. {Do not enter amounts greater than 9,999 or less than 1.) 

When we return to line 130, the screen is set to graphics mode 6 
which includes a text window at the bottom. The cursor is positioned 
using coordinate variables PX and PY. The heading is stored in the string 
A$. The subroutine that begins at line 170 will display the string A$ at 
the top of screen. Returning from the subroutine, a rectangle is drawn 
using COLOR 1. At line 200, the highest amount (HAMT) is determined. 

The highest bar will include 65 positions. Jl is used to store this 
length (Jl = HAMT/65). Line 230 then determines the top position of each 
bar. The graph’s keys are displayed on the left side of the screen. At line 
360, the screen margins are set as wide as possible and abbreviations 
for each month are displayed in the text window. Line 400 begins 
drawing the outline for each bar, line 460 pokes color 3 into location 765, 
and an X10 command is used to fill in the bars. 

As a finishing touch, a loop at line 470 sounds a tone as each bar is 
completed. The higher the tone, the higher the bar. 

To return to the disk MENU program, simply press any key. 

1 00 Ft EM GFfAF'H (c) 1 980 fc»y Jerry Hh i te 

110 REM ORIGINALLY PUBLISHED IN COMPUTE! MAGAZINE 

111 REM P.O. BOX 5406, GREENSBORO, NC, 27406 

112 R EM 

1 20 DIM A * 20 > . AMT (12) . JN (12) : GQSU B 610 

130 GRAPHICS 61 SETCOLOR 2.4,4:SETCOLOR 4.4,4:SETCOLOR 0.1,10 


14U PX=4:FY = 0:A*=”MQNTHLY GRAPH”:GOSUB 170 

150 COLOR 1 : PLOT lS.SIDRAWTO 1 88,9 : DRflWTO 1 S8, 78 : DRAWTO 18,7 
S:DRAWTO 18,8 
1 GO GOTO 200 

1DL=FEEK(560)+PEEK(561)*256:D1=FEEK(DL+4)♦PEEK(DL+5)*256 
ISO FOR U=1 TO LEN(At):D2=S7344+((ASC(A»(U,U))-32)*8):D3=D1+ 
PY»20+PX+U—1 

1 S0 FOR JZ = 0 TO "7 : POKE D3+ JZ*20 , PEEK (D2+JZ) : NEXT JZlNEXT U:R 
ETURM 

200 FOR MON =1 TO 12:IF AMT(MON > >H AMT THEN H AMT = AMT CMON > 

210 NEXT MON 
22© J1 =H AMT/65 
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^3® FOR MON- 1 TO 1 2 :TAMT = 75- ( AMT (MON ) Sj 1 ) : JN (MON ) = INT (TAMT > : 
NEXT MON 

£40 IF H AMT > = 10000 THEN K = INT(HAMT/1000) IGOTO 280 
250 IF H AMT > = 1000 THEN K = INT(HAMT/100) :GOTO 280 
260 IF H AMT > = 100 THEN K = INT (HAMT/1 0) '.GOTO 280 
270 K = INT(H AMT) 

280 KD=K/S:K2=INT(K-KD):K3=INT(K-(KD«2)> 

290 K 4 = INT(K-(KD*3) ) :K5 = INT(K-(KD»4) ) 

30O At=STR*(K):PX=2-LEN(A*):PV=10:GOSUB 170 
310 IF K < 5 OR K>99 THEN 360 

320 At=STR»(K2):FX=2-LEN(A*):PV=24:GOSUB 170 
330 At=STR*(K3):PX=2-LEN(A*):PV=38:GOSUB 170 
340 A*=STR*(K4):PX=2-LEN(A*>:PV=52:GOSUB 170 
350 A* = STR* (K5) .* PX = 2-LEN (A*> : PY = 66 : GOSUB 170 


3 6 O 

P OK E 

82,0: 

POKE 

83,40:POKE 

752 

, 1 





370 

7 : ■? 

" K 

J 

F 

M A M 

J 

J 

A 

S 

O 

N 

38 0 

7 " 

E A 

E 

A 

P A U 

U 

U 

E 

C 

O 

E 

3 9 0 

7 " 

Y N 

B 

R 

R Y N 

L 

Q 

P 

T 

V 

C 

400 

F OR r 

10N= 1 

TO 

1 2 

: JY=MQN-1 







4 10 

PLOT 

1 8+ ( J 

Y«*l 2) 

, JN(MON) 








4 2 0 DR ANTO 2 5 + (JV*12),JN(MON) 

4 3 O DR ANTO 25+ (JV*12 ) ,75 
4 4 0 DRANTO 18+ (JV*12) ,75 

4 5 O P O 81TION 18+ (JV*12),JN(M ON) 

460 POKE 765,3:XIO 18,86,0,0,"S5" 

470 FOR VO L =1 0 TO 0 STEP -1SSOUND 0,JN(MON), 10,VOL:NEXT VOL: 
NEXT MON 

48© POKE 82,2:POKE 83,39:POKE 764,256 

490 IF PEEK(764) < >255 OR PEEK(53279)<>7 THEN GRAPHICS 0:POKE 
764,255:7 :7 "LOADING MENU";:RUN "B:MENU" 

5 00 G OT O 4 90 

BIO GRAPHICS 0:SETCOLOR 2,0,0:SETCOLOR 1,0,10:SETCOLOR 4,0,0 
520 7 : '? MONTHLY GRAPH" 


S3© 

7 :7 

" TYPE AMOUNTS FOR 

EACH 

MONTH:":7 


540 

7 " 

DO NOT 

USE 

NEGATIVE 

AMOUNTS":7 


550 

TRAP 

550 : 7 


J AN = 


IN PUT 

JAN : 

AMT(1 > =JAN:TRAP 

40000 

56 0 

TRAP 

560 : 7 


FEB = 

•; 

INPUT 

FEB : 

AMT(2)=FEB:TRAP 

40000 

S70 

TRAP 

570 : 7 


MAR = 

•; 

INPUT 

MAR : 

AMT(3)=MAR:TRAP 

40000 

580 

TR A P 

580 : 7 


A PR = 


INPUT 

APR : 

AMT(4)=APR:TRAP 

40000 

590 

TRAP 

590 : 7 


M AY = 


INPUT 

MAY : 

AMT(5)=MAY:TRAP 

40000 

600 

TRAP 

600 : 7 


JUN = 


INPUT 

jun : 

AMT ( 6 ) = JUN *. TR A P 

40000 

61 O 

TRAP 

610:7 


JUL = 


INPUT 

jul : 

AMT(7)=JUL STRAP 

40000 

620 

TRAP 

620 : 7 


AUG = 


INPUT 

AUG : 

AMT(8 ) =AUG:TRAP 

40000 

6 30 

TRAP 

6 30:7 


SEF = 


INPUT 

SEP : 

AMT(9)=SEF:TRAP 

40000 

640 

TRAP 

6 4 0:7 


OCT = 


INPUT 

OCT : 

AMT(10)=OCT STRAP 

40000 

6 5 0 

TRAP 

650 : 7 


N O V = 


INPUT 

NOV : 

AMT(11)=NOV:TRAP 

40000 

660 

TRAP 

660 : 7 


DEC = 


INPUT 

DEC : 

AMT(12)=BEC STRAE 

:TRAP IH 


670 RETURN 
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Chapter 12 

Sorting a String (SORTDEMO) 

Sorting data so it is in alphabetical sequence makes data easier to 
find, and is often essential. 

SORTDEMO is an adaption of the Shell-Metzner sort. It will sort 
both alphabetic and numeric data. Since the ASCII value of any 
number is less than the ASCII value of the letter A, numbers will sort 
ahead of letters. 

This sort is set up to handle a maximum of 100 records, but can be 
modified to suit your needs. Each record can contain no more than 30 
characters. 


If you need more than 30 charcters, these simple modifications 
can be made. Any reference to 30 will be changed for the number of 
characters you need. For instance, if you want a 35 character record, 
change every 30 to a 35. Any references to 29 should be changed to 34. 
In line 130, A$(3000) would be changed to A$(3500) in both instances. 
The number within the parenthesis is the length of a record times 100. 
If you need more than 100 records, this number will be the length of the 
record times the maximum number of records. 


There is no need to enter all records at once; you do not have to 
type in all 30 characters. Type in a few names and numbers, hitting 
RETURN after each one. Each data item will be given a record number. 
When you have finished entering the data, press QJJJJjJJ] again. 


The data you entered will be sorted and displayed on the screen. 
By holding down Hjjfl and the number Q, you can pause. To continue 
screen scrolling, press SEJ and Q again. 


After the data has been displayed, press 231212 to enter more 
data. Press [JJjJJjJJ] when all data is entered to sort again. 


100 REM ATARI BASIC STRING SORT 

110 REM TUTORIAL BV JERRY WHITE 

112 R EM OR IGINAL L V PUBLISHED IN C: OM PUT E M AGAZINE 

113 REM P.O. BOX 5406, GREENSBORO, NC , 2-7403 

120 REM *-***+ SETUP 

1 30 DIM A* 3O00 ) , Bt ( 30) , C* <.. 30 > 5 A# ( 1 ) =•• : Ht ( 3000 > =•• : A# ( 2 ) = 

At:Bt = »":C ♦ = ■ ■ • ■ 

140 GRAPHICS 0:SETCOLOR 2,0,0:POKE 32,2:GOTO 320 
1 50 REM SORT At **-**-» 

160 T=INT(T/3)+lIFOR Ll=l TO REC-T:FOR L2=L1 TO 1 STEP -T 
170 IF At(L2»30-29,L2»30)<sA»((L2+T)*30-29 f (L2+T)»30) THEN 2 
1 0 

180 Ct=At(L2*30-29,L2*30):At(L2»30-29,L2**30)=At((L2+T)*30-29 
,(L2+T)*30) 
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190 A*<(L2+T)*30-29,(L2+T)*30)=C* 

200 NEXT L 2 

21O SOUND 0,REC+1O-L1,10,2:NEXT L1 
220 IF T >1 THEN ISO 

230 REM DISPLAY SORTED DATA **-*->* 

240 SOUND O,0,0,0:3 CHRt (125) :? , SORTED DATA 4 

2 S O F OR r 1E = 1 TO R E C : 3 A * ( M E«*30-2 9 , M E*3 O ) : N EXT M E 
2S0 REM «-*-** CONTINUE OPTION 

270 9 : •? " PRESS OPTION TO ADD DATA":? 

TART F OR M ENU • • ; 

2S0 IF PEEK(53279)=3 THEN 330 

290 IF PEEK(53279)=G THEN GRAFHICS 0:7 :7 "LOADING 

N "D:MENU" 

300 GOTO 2S0 

310 REM DATA ENTRY *** 

320 7 :7 "ENTER UP TO 100 RECORDS TO BE SORTED:" 

330 REC=REC+1 :7 :7 "ENTER RECORD . ..INPUT 

< B * J 

340 IF LB = 0 THEN REC=REC-1 : T=REC : 7 ,"■*«*» S O R T I 

GOTO ISO 

3S0 A*(REC*30-29,REC»30-29+LB)=B$ 

380 GOTO 330 


MENU";:RU 


B*:LB=LEN 

N G www 1 ■ ; 
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Chapter 13 

Musical End or Exit Routine (MUSICEND) 

Many Atari commercial programs begin and end with music. This 
program plays an ending tune of seven notes. If you do not have a 
background in music, this program will also help you to understand the 
terms whole note, half note, quarter note, and eighth note. As indicated 
by their names, the duration of a half note is half that of a whole note. 
The duration of a quarter note is half that of a half note, and the 
duration of an eighth note is half that of a quarter note. 

The tempo of a song can be based on the duration of the whole 
note. BASIC can then be used to calculate the duration of other notes 
using simple division. 

Run the program. You will be asked to enter the duration of a 
whole note. For this demonstration, enter the number 20. Seven notes 
will be played. Press [jJJJUE to run it again. This time, enter the number 
40 as the whole note duration. Notice that all notes are held twice as 
long which makes the song play at half the speed. 

MUSICEND uses one of the five countdown timers to kill time while 
a note is being played or held. The variable HOLD is used to set the 
timer at memory location 540. In line 180, we POKE the value of HOLD 
into this location. We loop at line 190 until the value in location 540 is 
equal to zero. When we fall through to line 200, we RETURN from this 
subroutine. 

Whenever a value greater than zero is poked into location 540, the 
Atari begins counting down to zero at the rate of 60 per second until 
this value becomes zero. A unit of time l/60th of a second long is known 
as a jiffy. Any integer from zero to 255 may be poked into location 540. 
The routine in lines 180 through 200 may be used for any delay up to 
255 jiffies or four and one quarter seconds. 

Since the speed of a FOR/NEXT loop varies, using a countdown 
timer is a much more accurate method of creating a time delay. 

The SOUND capabilities of the Atari are truly amazing. The 
BASSNOTE and SOUNDEMO programs in this package further 
demonstrate the use of sound. If you would like additional information 
on sound and music, look into Jerry White’s Music Lessons from Swifty 
Software, TRICKYTUTORAL #6 (SOUNDS) from Educational Software, 
and the SOUND chapter in the APX publication De Re ATARI. 
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by Jer 


O REM MUSICEND BY JERRY WHITE 

10O GRAPHICS 0:SETCOLOR 2 ,15,0:POKE 82,1:POKE 83,39 
110 •? :7 :7 MUSICAL END of job routine-:? : 7 , 

r-y White" 

120 7 : •? : 7 "ENTER THE DURATION OF A WHOLE NOTE"; 

130 TRAP 120:INPUT WNlTRAP 40000 
140 IF WN >255 THEN WN = 2SS 
ISO POKE 752,1 !? *. 9 WHOLE NOTE = ";WN :HN = INT (WN/2) :? : 7 , " 

HALF NOTE="iHN 

160 QN = INTCWN/4) :? :7 ," QUARTER NOTE = ",*QN 

1 70 EN = INT(WN/8) :? :7 ," EIGHTH NOTE = "; EN : GOTO 210 

ISO POKE 540,HOLD 

ISO IF P E EK(540) > 0 THEN 190 

2O0 RETURN 

21O SOUND 0,48,12,8:HOLD=HN:GOSUB 180 
220 SOUND 0,O,Q,O:HOLD=QN:GOSUB 180 
230 SOUND 0,S3,12,8:HOLD=QN:GOSUB 180 
240 SOUND O,0,0,0:HOLD-EN:GOSUB 1 SO 
250 SOUND O,S3,12 ,8:HOLD = QN:GOSUB 1 SO 
260 SOUND O,O,O,O;HOLD = EN:GOSUB 1 SO 
270 SOUND 0,57,12,8:HOLD=HN:GOSUB ISO 
280 SOUND O,O,O,O:HOLD-QN:GOSUB 1 SO 
290 SOUND 0,63,12,8:HOLD=HN S GOSUB 180 
30O SOUND 0,O,O,O:HOLD=WN:GOSUB 1 SO 

3 1 O SOTJN D 1,51,12,8: SOUN D 0,47,10,2: SOUN D 2,37,10,2: SOUN D 3 , 

31.10.2 

320 7 : 7 : 7 ,•• THAT’S") : HOLD =HN : GOSUB 180 

330 GOSUB 360:'? •• ALL" : HOLD = QN .* GOSUB 180 

340 SOUND 1,48,12,8:SOUND 0,45,10,2:SOUND 2,35,1O,2:SOUND 3, 

29.10.2 

350 HOLD=WN:GOSUB 180:GOSUB 360:POKE 82,2:POKE 752,0:7 :7 :G 

OTO 370 

3S0 FOR O F F = 0 TO 3:SOUND OFF,O,0,0:NEXT OFF:RETURN 
370 7 :7 •• PRESS OPTION TO RERUN" : 7 •• PRESS START 

FOR MENU"; 

38© IF F E EK (53279)=3 THEN RUN 
390 IF PEEK<53279)<>6 THEN 380 

4O0 GRAPHICS 0:7 :7 "LOADING MENU";:RUN "D:MENU" 
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Chapter 14 

Deep Bass Sounds (BASSNOTE) 

BASSNOTE is self-documenting. It demonstrates the use of 
distortion level 12 in the SOUND command, and plays part of the bass 
line of the theme from the Barney Miller TV show. 

Why use distortion level 12? Enter this little BASIC routine and 
you’ll hear a much deeper tone in level 12 than is possible in level 10. 

10 GRAPHICS 0:?:?“This is the lowest pitch possible in level 10.” 

20 FOR DELAY = 1 TO 500:NEXT DELAY: ?:LIST 30 

30 FOR VOLUME = 15 TO 0 STEP-0.2:SOUND 0,255,10,VOLUME:NEXT 

VOLUME 

40 ?:?“NOW HEAR THIS. . .”:LIST 50:FOR DELAY = 1 TO 500:NEXT 
DELAY 

50 FOR VOLUME = 15 TO 0 STEP-0.2:SOUND 0,102,12,VOLUME:NEXT 
VOLUME 

BASSNOTE will display the notes and pitch numbers for two 
octaves of low bass notes. This information is not in your Reference 
Manual, so save it for future reference. As the demonstration song is 
played, the actual SOUND commands being used will be displayed on 
the screen. 

0 REM BASSNOTE TUTORIAL BY JERRY WHITE 

1 REM ORIGINALLY PUBLISHED IN A.N.A.L.O.G. 4OO/800 MAGAZINE 

2 REM 

20 GOSUB 600:GOSUB 2S0:GOTO 10S 

40 SOUND 0,0,0,0 ;READ PITCH I D=1 2 !V=1 4 ! SETCOLOR 2 , PITCH , O : ROTT 
ND 0,PITCH,D,V 

42 POSITION 10,20:? •• SOUND 0 , ••; pitch ;••,••; D ;••,••; v; » : re 

TURN 

S0 FOR HOLD=1 TO 200INEXT HOLD:SOUND 0,0,0,0:PITCH=0:D=0:Vr0 
:GOSUB 4 2:R ETURN 

•70 FOR HOLD=l TO 50: NEXT HOLD : RETURN 

80 FOR HOLD=1 TO 25:NEXT HOLD:SOUND 0,O,0,O:RETURN 

100 DATA 102,90,8S,82 J 7S,72,6?,67,60,B7,S0,S7,75,S7, c, i ,R0,75 

, 90 

105 FOR TIME = 1 TO 2 : GOSUB 40 : GOSUB 50.1 GOSUB 50 

110 GOSUB 40:GOSUB 70:GOSUB 40:GOSUB 70 

120 GOSUB 40:GOSUB 50:GOSUB 50 

130 GOSUB 40:GOSUB 70:GOSUB 40:GOSUB 70 

140 GOSUB 40:GOSUB 50:GOSUB 50 

150 FOR QU ARTERNOTE = 1 TO 8 : GOSUB 40 : GOSUB 70: NEXT QUARTERNCiT 
E 

190 GOSUB 40:GOSUB 80:GOSUB 40:GOSUB 80 
200 GOSUB 40:GOSUB 80IRESTORE :NEXT TIME 

220 RESTORE :GOSUB 40:GOSUB 50:POKE 752,0:? •• PRESS OPT 

ION TO RERUN-:? •• PRESS START FOR MENU" J 

230 IF FEEK(53279)=3 THEN RUN 
235 IF PEEK(53279) < >6 THEN 230 

240 7 CHR*(125) :? :7 ••LOADING MENU"; : RUN "D : MENU" 

250 7 : 7 ,•■ PITCH = NOTE" : GOSUB 700 

300 7 : 7 •■2S = E","27 = DO","28 = D ","30 = C»" 

310 7 • • 3 1 = C •*, "33 = B ••,"36 = A»",»37=A ■• 

320 7 ■•40 = G« M , "42 = G ", "45 = F«", "43 = F •• 
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3 3 0 

3 ’ * 5 1 =E 

","5S=Do","S7=D 

3 4 O 

•? "63 = 0 

","67=B ","72=Ao 

3 S O 

•? "82 = GO 

","8S=G ","90=FO 

3 6 0 

•7 • • 1 02 = E 

•• : GO SUE "70 0 

3 8 0 

•7 : 7 •• 

THE ATARI BASIC 

4 00 

7 :7 • • S GUND VOICE,FITCH, 

URN 



6 0 0 

GRAPHICS 

0:POKE 752,1:GO 


*60 = 00' 
■7S = A • 
*97 = F * 


MILLER" 

ASSNOTES USING SOUND DISTORTION 15 


LR=2 TO 36:? CHR*C16);:NEXT CTRLR: 


820 


7 ■ 

■BASSNi 

URN 

700 

F OR 

CTRLR=2 

790 

R EM 



8 0 0 

R EM 


D = DI S' 

8 1 0 

R EM 


GO SUE 

820 

R EM 

** 

GOSUB 

8 30 

R EM 

-** 

G O SU B 

8 4 0 

R EM 

-M- 

GOSUB 

SS0 

R EM 




?0 FOR QUARTER NOTE 


"IGOSUB 700:R ET 
THE THEME FROM 
** : GOSUB TOO: RET 
R ETURN 
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Chapter 15 

Sound Effects (SOUNDEMO) 

SOUNDEMO contains its own documentation, which is displayed 
as the program runs. After running the program, study the program 
listing. You may use any of the sound effect routines of SOUNDEMO in 
your own programs. 

The sound related programs in this package barely scratch the 
surface of this subject. Experimentation is the best way to learn. 
Substitute your own values in some of the many FOR/NEXT loops of this 
program. Most of these routines were discovered using the trial and 
error method. 

Experiment using pokes to the SOUND registers found in memory 
locations 53760 through 53768. Locations 53760 and 53761 control 
voice zero. 53762 and 53763 control voice one, 53764 and 53765 
control voice two, and 53766 and 53767 control voice three. Poking 
various values into location 53768 can create strange effects in any 
and all voices. 

Although a programmer can achieve a much wider range of 
effects with machine language, there is certainly a wide range of 
sounds available to the BASIC programmer. 

0 REM SOUNDEMO Co) 1381 by Jerry Mhite 

10 GRAPHICS 0:POKE 710.0:POKE 82,2:POKE 752,1IGOSUE 40:GOTO 
100 

19 REM TURN OFF SOUNDS 

£0 FOR OFF = 0 TO 3 I SOUND OFF,0,0,0:NEXT OFF:RETURN 

29 REM TIME DELAY T=60ths of a second 

30 POKE S 4 0,T 

31 IF PEEK(540)<>0 THEN 31 

32 GOSUE 20:RETURN 

39 REM NEW SCREEN HEADING 

40 •? CHRf(12S) : ? " SOUND ROUTINES BY JERRY WHITE" : r> : o 

:RETURN 

SO POSITION 6,21:? " PRESS START TO CONTINUE":POKE 53279,0 

52 IF PEEK(B3279) < >S THEN 52 

53 RETURN 

100 '? " One simple clear sound oan be made'*:? "to sound di 
fferently just by altering" 

110 ? "i*:*s duration and volume. Each* of":? "the following 

routines play the same" 

120 ? "note (middle C) . Notice the how ■the":'? "sound is alt 
ered, just by changing" 

130 7 "the volume and duration."!? :7 ■■ The sound command 
US e d -to play" 

140 ? "middle C is SOUND 0,121,10,8. The 4":? "variables ar 
e:":-? :? "SOUND VOICE, PITCH, DISTORTION, VOLUME . " 

150 GUSUE: 50 : GOSUB 40: LI ST 1 60 
160 SOUND 0,121,10,8:T=1:GOSUB 30 
170 T=120:GOSUB 30:? :LIST 180 

IS© FOR TIME= 1 TO 1 O : SOUND 0, 121,1 0,8 :T=1 : GOSUB 30-.NEXT TIME 


190 T=120:GOSUB 30:? :LIST 200 
20© SOUND 0,121,10,8:T=20:GOSUB 30 
210 T=120:GOSUB 30:? :LIST 220 

220 FOR TIME=1 TO 10:SOUND 0,121,10,8:T=20:GOSUB 

30 


30:NEXT TIM 



E 

23© GOSUB 505GOSUB 4©:LIST 24© 

24© FOR TIME=1 TO 3:FOR V=1 TO 1 B:SOUND 0, 121 , 1 ©,V:NEXT VSFO 
R V —IB TO © STEP — 1 : SOUND © , 1 2 1 , 1 © , V : NEXT VlNEXT TIME 
250 T=12©:GOSUB 30:? :LIST 26© 

260 FOR TIME=1 TO 3:FOR V=1S TO © STEP -©.2:SOUND 0,121,10,V 

:N EXT V:NEXT TIME 

^ •"T=120:GOSUB 50: GOSUB 4©:? ” Th e following routines a 1 s 
o use":? "the clear distortion level 1©. The” 

23© 7 "difference will be changing -the pitch**;? "with FOR NE 
: 1 : T 1 ,; " ;ips ' " : GOSUB 5© : GOSUB 4©: LIST 29© 

29© FOR F = 0 TO 2S5:SOUND 0,P,10,8:NEXT P:FOR P=2SS TO 0 STEP 

-1:SOUND ©,P,10,8:NEXT P:GOSUB 2© 

30© T=12©:GOSUB 3©:LIST 31© 

31© FOR F=© TO 2S5 STEP 5:SOUND 0,P,10,8:NEXT P:FOR P=2S5 TO 
_© STEP -S:SOUND ©,P,10,8:NEXT P:GOSUB 20 

32© GOSUB 50 : GOSUB 40 ; ? ** Now we will use multiple voices’* 
: ?• "which will force us -to use mone -then” 

33© 7 "one line in many routines, We will” :? "still use on 1 
y 'the clean sound of" 

340 7 "distortion level 10 and change the**:? "pitch, -the vol 
ume, on both with the" 

350 7 "FOR NEXT 1 oops.”:GOSUB 50:GOSUB 40:LIST 360 

36© FOR F=1 TO 255:SOUND 0,P, 1 ©,8:SOUND 1,25S-P, 1 0,8:NEXT P: 

GOSUB 20 

370 T=120:GOSUB 30:?- :LIST 380 

3S0 FOR p = 0 TO 2SS STEP S:SOUND 0,P, 10,8:SOUND 1,255-P, 10,8 : 
NEXT F:GOSUB 20 

39© GOSUB 50!GOSUB 40:LIST 400,410 

40© FOR V=15 TO 0 STEP -0.5:FOR P=3 TO 10:SOUND 0,P,10,V:NEX 
T P 

41© FOR P=13 TO 2S STEP 12:SOUND 1,P,10,V:NEXT P:NEXT*V 
42© T=120:GOSUB 30:LIST 430,46© 

430 FOR V=0 TO 15IFOR P=200 TO 206 STEP 2:SOUND 0,P,10,V:NEX 

T P 

44© FOR P = 208 TO 214 STEP 2:SOUND 1 ,P, 10,V:NEXT P 

4S0 FOR P = 216 TO 222 STEP 2:SOUND 2,P, 10,V:NEXT P 

46© FOR P = 2 2 4 TO 232 STEP 2:SOUND 3,P, 10,V:NEXT PSNEXT VIGOS 

UB 2© 

470 GOSUB 50 : GOSUB 40:7 ” The key -to using Atari's sounds" 
:7 "with Basic is the FOR NEXT loop and" 

48© 7 "expen i mentat i on . These last: few”: 7 "routines will on 
eate a vaniety of" 

4 9© 7 • • s o und effects by c ombining diffen en t”:7 "distontion 1 
eveIs and voices.” 

50© 7 :7 ” I hope you’ve enjoyed this little”:7 "demonstna 

tion and that you will soon" 

51© 7 "be cneating youn own sound effects . : GOSUB 50 : GOSTTB 4 

0ILIST 520 

520 FOR TIME =1 TO 5:FOR V=1S TO 0 STEP -2:SOUND 0,V,4,V:SOUN 

D 1,13,4,V:SOUND 2,V,0,V:NEXT V.NEXT TIME:GOSUB 2© 

530 T=12©:GOSUB 30:7 :LIST 540 

54© FOR V =15 TO © STEP -0.5:FOR P = 6 TO 0 STEP -l:SOUND 0,P,2 

,V:N EXT P:N EXT V 

55© GOSUB 5©:GOSUB 40:LIST 560,570 

56© FOR TIME=1 TO 30:SOUND 0,25,10,2:SOUND 1,0,2,2:FOR T2=l 
TO 2:SOUND 0,25,10,8:SOUND 1,0,2,8:NEXT T2 

57© SOUND 0,0,0,©:SOUND 1,0,0,0:NEXT TIME:FOR V=8 TO 0 STEP 
-o.l:SOUND 0,25,10,V:SOUND 1,0,2,V:NEXT V 
58© T=12©:GOSUB 30:7 :LIST 59© 

59© FOR V=1S TO © STEP -0.2:SOUND 0,25,4,V:SOUND 1,240,2,V:S 

OUN D 2,255-V*l4,0,V:NEXT V 

60© GOSUB 50:GOSUB 40:LIST 610,620 

61© FOR Vs 15 TO 0 STEP -1 :FOR P=l© TO 6© STEP 5!SOUND 0,P,1© 

,V:N EXT P 

62© FOR P = 70 TO 14© STEP 10:SOUND 1 ,P, 10,V:NEXT P:FOR P = 2 1© 
TO 1 © STEP -5©:SOUND 2,P, 10,V:NEXT P:NEXT V 
63© T=120:GOSUB 30:7 :LIST 64© 

64© FOR V =15 TO © STEP —0.05:SOUND 0,51 , 12,V:SOUND 1,102,12, 

V:SOUND 2,51,12,V:SOUND 3,102,12,V:NEXT V 

650 GOSUB 4©:7 :7 :7 :7 ” PRESS OPTION TO RERUN" : 7 17 ” 

PRESS START FOR MENU" 

66© IF PEEK(53279)=3 THEN RUN 
670 IF PEEK(53279)< >6 THEN 660 

68© 7 :7 ” LOADING MENU.":RUN "DlMENU” 
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Chapter 16 

Binary to Decimal Conversions (BINCONV) 

Situations sometimes demand that a programmer convert data 
from binary to decimal numbers, or from decimal to binary. Creating 
Players using Player Missile Graphics is such a situation. If you decide 
to create your own Players using the PMDEMO program, this 
BINCONV program will be helpful. 

Use graph paper to design a player. Section off a strip eight boxes 
wide. Use a pencil to shade the boxes required to created the desired 
shape. Think of the shaded boxes as ones and the blank boxes as zeros. 

When you are satisified with your player, run this program. Select 
Binary to Decimal and enter the first binary number to be converted. 
This should be the top line of your player: eight zeros. This program 
expects eight digits for each binary number you enter. As each number 
is entered, it will replace the line of eight inverse video spaces or 
cursors you see on the screen. Since this program checks only for 
zeros, any position not entered will be assumed to be a binary 1. 
BINCONV also checks the first position you type to see if it is the letter 
E or the letter R. E is used to end the program and R is used to restart it. 

As you convert each line of your binary player into a decimal 
number, write down the decimal numbers. These numbers will be 
entered into the PMDEMO program, which will convert the decimal 
numbers into STRINGS format. 

The BINCONV program is easy to follow. B$ holds the binary 
number while D$ is the decimal number string. Numeric variables D, 
D2, and GC are used to store the decimal number, that value divided by 
2, and the character entered through the GET Character routine (Line 
34). 

0 REM BINARY TO DECIMAL AND DECIMAL TO BINARY CONVERSION FRO 
GRAM 

1 REM (c) 1981 by Jerry White 

2 R EM 

3 R EM ORIGIN A L LY PUB LISH E D IN C OMPUT E! MAGASIN E 

4 REM P.O. BIX 5406, GREENSBORO, NC, 27403 

5 R EM 

20 DIM D* C3) , B $ <8} : B * = ■ ■ 0 0 0 O000 0 • • 

30 GRAPHICS 0:SETCOLOR 2,0,0:POKE 752,1:POSITION S,5 

32 •? "TYPE E TO CONVERT FROM BINARY" : ? : *7 TYPE D TO i'OMV 

ERT FROM DECIMAL" 

34 OPEN » 1,4 , O , : " : GET »1,GC: CLOSE »1 

36 IF G C = 66 THEN SO 
38 IF G C = 68 THEN 500 
40 GOTO 34 

SO •? CHRt (125) : SET COL OF: 2,0,0: DV = 0 : POKE 752, 1 : ? : •? "BINARY T 

O DECIMAL CONVERSION PF:OGR AM : " : GOTO 355 
96 REM 
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KEI1 LINE 100 HAS 8 INVERSE VIDEO SPACES FOLLOWED BY 
■3& REM TWO NORMAL VIDEO SPACES FOLLOWED BV TWO UP ARROWS 

9 9 REM WITHIN THE QUOTES 

O 0 • '■■■■■I ft" 

l 0 1 R EM 

110 ? : ° - JSINPUT Bt:lF B* 1 , 1 ) = "E" THEN GRAPHICS 0 : o : •? -LO 

ADI NG MENU• • ; : RUN ■■ D : MENTJ• • 


1 1 2 

I F 

E * ( 1 , 1 > 

= ■ 

.R.. 

THEN 

RUN 

1 20 

DV 

= 0 : TRAP 

360 



2 0 0 

I F 

BI(1,1) 

= • 


THEN 

220 

2 1 0 

DV 

=DV+128 





2 20 

I F 

B * < 2 ,2 ) 

= • 

■0" 

THEN 

240 

230 

DV 

~ DV +64 





240 

I F 

B * C 3 , 3 > 

= • 

•0" 

THEN 

260 

280 

DV 

= DV +32 





260 

I F 

B * 4,4 ) 

= ■ 


THEN 

280 

2*7 0 

DV 

= DV+ 1 6 





280 

I F 

B * <; 8 ,8) 

= ■ 

* 0 * * 

THEN 

300 

2 9 0 

DV 

= DV + 8 





300 

I F 

B »(6,6) 

= • 

.0.. 

THEN 

320 

3 1 0 

DV 

= DV+ 4 





320 

I F 

B*(7,7) 

— ■ 

■0" 

THEN 

340 

3 3 0 

DV 

= DV + 2 





3 4 0 

I F 

B * < 8,8 ) 

= • 


THEN 

388 


38 0 DV = DV + 1 

388 POSITION 2,3:C : ? , "BINARY ; B* ; 

38S POSITION 26,6:? " : POSITION 2,8 

360 •? • • "DECIMAL VALUE = • • ; DV 

■zi'PQ •? :•? , "TYPE E TO END"!? ."TYPE R TO RERUN" : *7 , ,, OR TYPE A 

EIN ARY NTJM B ER . • • 

400 trap 40000 : GOTO 100 

SCO ? CHR#(125) :SETCOLOR 2,0,0:POKE 752,1 I? :o "DECIMAL TO B 
INARY CONVERSI ON PROGRAM:":GOTO 800 
BOS REM 

SOS REM LINE 810 HAS 8 SPACES THEN TWO UP ARROWS WITHIN THE 

QTJ OT E S 
si© ? : •? , 

811 REM 

820 •? : ■? : c , ; : input d*:if d* < i , i > =-e- then graphics 0:? :? 

"LOADING MENU• • ; : RUN "D :MENU• ■ 

830 IF D* Cl,l) = • *R• ■ THEN RUN 

840 TRAP S00:IF VAL(D»)>255 THEN S00 

848 DN=VAL(Dt):B*="" 

SB© FOR DIGIT-1 TO 8 

860 D2=VALCD*)^2:D=INT(D2) 

8*70 IF D2 = INT(D2) THEN Bt (9-DIGIT, 9-DIGIT) ="0" : GOTO 590 
580 B* (9-DIGIT, 9-DIGIT) = •• 1 •• 

890 D*=STR#(D) 

600 NEXT DIGIT 

800 POSITION 2,3:'? : *? , "DECIMAL ",*DN;" = 

810 ? : *? , "BINARY VALUE = »;B* 

820 ? :*? , "TYPE E TO END":? , "TYPE R TO RERUN":'? , "OR TYPE A 

DE CIM A L NUM BER." 

830 TRAP 40000:GOTO 810 
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Chapter 17 

Player Missile Strings (PMDEMO) 

To Enter This Program Manually 

If you purchased the disk or cassette version of this package, you 
obviously will not have to manually enter the programs. If you must 
enter the programs manually, you will need the following information. 

PMDEMO stores data for players and assembly subroutines in 
strings. These strings consist of ASCII characters which cannot be 
printed on paper. In order to create these strings, a routine has been 
provided in program lines 9500 through 9960 to read DATA statements 
and create the required strings. This routine actually generates BASIC 
code which will become part of the PMDEMO program. 

This routine is used to create program lines 10, 65 through 90, 
5070, and 5080. Before creating these lines, enter the rest of this 
program and save it on cassette. Be sure to read program listing lines 
10000 through 10160 and note the line numbers and text which must be 
entered using inverse video. 

Before using the routine for creating strings, read the REM 
statements from line 9500 through line 9680. You will need the 
documentation pages that contain the PMDEMO DATA FOR 
CREATING STRINGS. 

The following instructions will walk you through the first DATA to 
STRING conversion: 

Note the first two lines on the first page of PMDEMO DATA: 

DATA FOR C$ IN LINE 10 
9900 DATA 0,40,2,136,112,0 

Enter line 9900 exactly as it appears above and press The 

routine beginning at line 9700 makes the data-to-string conversion, but 
first you must answer two questions. Type [jJjJJjJjHjljj and press [jJJJJJjJJ. 

The first prompt asks for the line number of the string (not 9900). 
The line number for C$ is 10, so type JE and press QJEQJ]. 

The second prompt asks for the string name including the dollar 
sign, so type [g and press QjJJQS- 

Line 10 should now be part of the PMDEMO program. Just to make 
sure, type [jmE and press QJJUjJJ. If line 10 does not appear on the 
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screen, check the program in memory from line 9700 through line 9960 
against the program listing, correct any errors, and try again. 

That’s one down and 28 to go. The second string will be line 65 and 
the string name will be DAT$. There are 26 DAT$ strings. Once all 
DAT$ strings are entered, two more strings called ERASES and PM$ 
are created. You will have to enter three lines of data for PM$ (9900, 
9901, and 9902). 

PMDEMO DATA FOR CREATING STRINGS: 


DATA FOR C* IN LINE 10 
9900 DATA O,40,2,136.112.0 

DATA FOR DAT* IN LINE 65 

9900 DATA 0.100.16.0,0,24,24,60,60,102,102,102,102,126,126, 

DATA FOR DAT* IN LINE 66 

9900 DATA 0,100,16,0,0,124,124,102,102,124,124,102,102,102, 

DATA FOR DAT* IN LINE 67 
9900 DAT A 0.100,16,0,0,60.60,102,102,96,96,96,96,102,102,60,60,0,0,0 

DATA FOR DAT* IN LINE 68 

9900 DATA 0,100.16,0,0,120,120,108,108,102,102,102,102,108,108,120,120,0,0,0 
DATA FOR DAT* IN LINE 69 

9900 DATA 0,100,16,0,0,126,126,96,96,124,124,96,96,96,96,126,126,0,0,0 
DATA FOR DAT* IN LINE 70 

9900 DATA 0,100,16,0,0,126,126,96,96,124,124,96,96,96,96,96,96,0,0,0 
DATA FOR DAT* IN LINE 71 

9900 DATA 0,100,16,0,0,62,62,96,96,96,96,110,110,102,102,62,62,0,0,0 
DATA FOR DAT* IN LINE 72 

9900 DATA 0,100,16,0,0,102,102,102,102,126,126,102,102,102,102,102,102,0,0,0 
DATA FOR DAT* IN LINE 73 

9900 DATA 0,100,16,0,0,126,126,24,24,24,24,24,24,24,24,126,126,0,0,0 
DATA FOR DAT* IN LINE 74 

9900 DATA 0,100,16,0,0,6,6,6,6,6,6,6,6,102,102,60,60,0,0,0 
DATA FOR DAT* IN LINE 75 

9900 DATA 0,100,16,0,0,102,102,108,108,120,120,120,120,108,108,102,102,0,0,0 
DATA FOR DAT* IN LINE 76 

9900 DATA 0,100,16,0,0,96,96,96,96,96,96,96,96,96,96,126,126,0,0,0 
DATA FOR DAT* IN LINE 77 

9900 DATA 0,100,16,0,0,99,99,119,119,127,127,107,107,99,99,99,99,0,0,0 
DATA FOR DAT* IN LINE 78 

9900 DATA 0,100,16,0,0,102,102,118,118,126,126,126,126,110,110,102,102,0,0,0 
DATA FOR DAT* IN LINE 79 

9900 DATA 0,100,16,0,0,60,60,102,102,102,102,102,102,102,102,60,60,0,0,0 


102 , 102 , 0 , 0,0 
102,124,124,0,0,0 


PMDEMO DATA FOR CREATING STRINGS: 

DATA FOR DAT* IN LINE 80 

9900 DATA 0,100,16,0,0,124,124,102,102,102,102,124,124,96,96,96,96,0,0,0 
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DATA FOR DAT* IN LINE 81 

9900 DATA 0,100,16,0,0,60,60,102,102,102,102,102,102,108,108,54,54,0,0,0 
DATA FOR DAT* IN LINE 82 

9900 DATA 0,100,16,0,0,124,124,102,102,102,102,124,124,108,108,102,102,0,0,0 
DATA FOR DAT* IN LINE 83 

9900 DATA 0,100,16,0,0,60,60,96,96,60,60,6,6,6,6,60,60,0,0,0 
DATA FOR DAT* IN LINE 84 

9900 DATA 0,100,16,0,0,126,126,24,24,24,24,24,24,24,24,24,24,0,0,0 
DATA FOR DAT* IN LINE 85 

9900 DATA 0,100,16,0,0,102,102,102,102,102,102,102,102,102,102,126,126,0,0,0 
DATA FOR DAT* IN LINE 86 

9900 DATA 0,100,16,0,0,102,102,102,102,102,102,102,102,60,60,24,24,0,0,0 
DATA FOR DAT* IN LINE 87 

9900 DATA 0,100,16,0,0,99,99,99,99,107,107,127,127,127,127,99,99,0,0,0 
DATA FOR DAT* IN LINE 88 

9900 DATA 0,100,16,0,0,102,102,102,102,60,60,60,60,102,102,102,102,0,0,0 
DATA FOR DAT* IN LINE 89 

9900 DATA 0,100,16,0,0,102,102,102,102,60,60,24,24,24,24,24,24,0,0,0 
DATA FOR DAT* IN LINE 90 

9900 DATA 0,100,16,0,0,126,126,12,12,24.24,48,48,96,96.126,126,0,0,0 
DATA FOR ERASE* IN LINE 5070 

9900 DATA 104,104,133.205,104,133,204.162,4,160.0,169,0.145,204,200,208,251.230, 
205,202,208,246,96 

DATA FOR PM* IN LINE 5080 

9900 DAT A 104,104,133,204,104,133,203. 104 .1 04 ,133,205, 104 , 133. 206 ,1 04 ,162, 0 , 160 , 
00,177,203,153,0,6,200,196,205,208,246,24 

9901 DATA 189,0,6,101,206,133,208,232,189,0,6,133,207,232,189.0,6,133,209.232,16 
0,0,189,0,6,145,207,232,200,198 

9902 DATA 209,165,209,201,0,208,241.189,0,6,201,0,240,6,232,160,0,24,144,206.96 

To Use PMDEMO 

This program demonstrates two ways to use Player/Missile 
graphics other than forming rockets and bullets. It also provides a 
utility routine which accepts decimal values for player data and places 
the data into a string called DATS$. Careful study of this program plus 
a little experimentation will provide the tools required to use this 
unique feature of your computer. 

PMDEMO uses players to create smooth movement of Graphics 
Mode 2-size text characters. The data for all capital letters from A 
thru Z are provided in string subroutines from line 65 thru line 90. To 
make Player into a letter, GOSUB to the ASCII value of the desired 
letter. For example, to use the A, GOSUB ASC(“A") or GOSUB 65. For 
letter B, GOSUB ASC(“B”) or GOSUB 66, and so on. 

Once the player letter is where it will stay on the screen, replace it 
with the same color text letter, then erase the player. 

Two assembler routines are provided for drawing and erasing 
players. This could be done using Atari BASIC, but it’s easier with a 
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little help from machine language. The erase routine may be found as 
line 19, and the draw routine in line 20 of the PMDEMO program. 
Change the name of the string to reflect the string name you use. The 
utility portion of this program will generate the string DATS$. The 
string used for the large capital letters is called DAT$. 

The utility routine uses a player as a cursor. If you’re tired of that 
big white block on the screen, create a player for this purpose. Your 
new cursor can be any color or shape you desire. I used a simple 
underline that curves upwards at each end. 

I used this utility program to create the cursor and stored it in the 
string C$. To create the string, I had to provide decimal data to the 
program. To determine the decimal data, I had to convert binary values 
into their decimal equivalents. Confused? 

Players are stored in the computer as bit patterns. There are 8 bits 
in a byte and there may be as many as 255 bytes in a player. To design 
the cursor, I used only two bytes. The first byte is a decimal 136 and 
the second is a 112. 

The values of the 8 bits from left to right are 128, 64, 32, 16, 8, 4, 2, 
and 1. The first byte of the cursor player is a combination of two bits, 
128 and 8. The second byte is a combination of 3 bits, 64, 32, and 16. 
128 + 8= 136 and 64 + 32 + 16= 112. In other words, the two bytes 
would look like this: 

Byte 1= XOOOXOOO Byte 2 = OXXXOOOO 

Use the BINCONV program supplied in this package to help you 
make your binary to decimal conversions. 

Once you know the decimal values of your player, PMDEMO will 
create a string for you in the form of a BASIC line on the screen. Make 
changes where needed in line number or string name, position the 
cursor on the line press RETURN. That line will then be part of the 
PMDEMO program. List this line to disk or cassette for later use in your 
own programs. 

When you create your player, it is important to make at least the 
first two bytes and the last two bytes zeros. (This was not done in 
creating the cursor because I did not need smooth movement 
vertically.) When you move a player vertically, zeros will erase the 
portion of the previous player which is otherwise left on the screen. 

Vertical movement is achieved by changing the second position of 
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the player data, then using the assembler call to put it on the screen in 
its new position. The first byte of the string is the player number and 
the third byte is the number of bytes in the player string. The actual 
player data begins in the fourth position of the string. 

Horizontal movement of a player is much easier. Once the player 
is on the screen, a simple POKE will change its horizontal position. The 
horizontal position of player 0 is poked into location 53248. POKE 
locations 53249, 53250, and 53251 for horizontal movement of players 
1, 2, and 3. 

Player color is also selected by using the POKE command. Color 
data for player 0 is poked into location 704. Color data for players 1, 2, 
and 3 is poked into location 705, 706, and 707. The color is determined 
by multiplying the color number by 16, then adding the luminance. For 
example, a POKE 704,0 would make player 0 black. POKE 705,15 would 
make player 1 white. Color 4 is red. Dark red or maroon would be a 
value or the color number 4 multiplied by 16 (64). Adding ten to this 
number would provide a light pink color. 

Again, study of the program itself and a little experimentation is 
the best teacher. 


0 REM PLAVER MISSILE DEMO/UTILITY (c) 1981 by Jerry Nhite 

1 REM NOTE REMARKS BEGINNING AT LINE 9S00 FOR PROGRAM ENTRY 
INFORMATION 

2 REM IF YOU DID NOT PURCHASE THE DISKETTE VERSION OF THIS P 

ACKAGE. 

3 R EM X X X XXXX XXXXXXXXXXXXXXXXXXXXXXKX* 

9 DIM C*<6):REM PLAVER CURSOR 
1G C * = • • *■ ( rpr- 

11 POKE S3277,0:POKE 53248,0:GOTO 9000 
1 S REM *-*-** SUBROUTINES mm 
1 9 A=USR(ADR(ERASE*) ,PM BASE) 

20 A =U SR(ADR(PM#) ,ADR(C*) , LEN(C#) ,PM BASE) :RETURN 

25 A=USR ( ADR ( ERASE* ) , PMBASE ) ! FOR ME=10 TO Of STEP -O . 5 : SOUND 

0,0,2,ME:N EXT M E:R ETURN 

30 A=USR(ADR(PM*),ADR(DAT*),LEN(DAT*),PMBASE):RETURN 

50 C* (2,2) = CHR* (8**PEEK (84) +40) : POKE 53248, PEEK (85)*4 + 48 : GOSU 

B 1 9 

58 GET ttl,GC:POSITION PEEK(86),PEEK(84):? CHR*(GC); 

fc:0 C*(2,2)=CHR*(8*PEEK(84)+40) : POKE 53248 , PEEK ( 85 ) **4 + 48 : GO^TT 

B 19IRETURN 

82 REM xxmxxx x xxxxxxxxxxx x xxxxxxxxxxxx 

83 REM STRINGS FOR ALPHABET OF PLAYERS 

84 REM •x- x xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

6 5 DAT # = ,, fd*t¥++< <ff€€44€f ¥¥¥■■ : RETURN 
66 DAT * = M Vd4W I Iff I |ffff| | w : RETURN 
S’? DAT* = "*d-<MMK < f f ♦♦♦♦f f < < W SRETURN 

68 DAT* = "Vd-S-¥Vxx 1 lffffl 1 xx***” : RETURN 

69 DAT* = "Vd+W4 ◄ ♦ ♦ | | ♦♦♦♦< ◄ : RETURN 

■7 0 D AT * = • ■ 4 ♦♦ | !♦♦♦♦♦♦ +W • : R ETURN 

DAT* = M Vd*V¥> > ♦♦♦♦nnf f > > : RETURN 

"7 2 DAT$ = "¥dWffff< 4 ffffffW : RETURN 

73 DAT* = ’«^d-g-^MM 4 -*■■» » * ■ * i » 4 4 »»»■■ : RETURN 

74 D AT * = ■ • *d f < < • : R ETURN 

75 DAT* = "td+¥Vf f 1 1 xxxxl 1 f f : RETURN 

76 DAT* = “*d4-************« 4 IRETURN 

7*7 DAT# = "»d*tfccww ► ►kkccocW : RETURN 
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7 8 DAT» = "td*ffffvv< 4 4 ^nnffm" : RETURN 

79 DAT* = "¥d*W< <ffff f fff < <***•■ : RETURN 

30 DAT* = "¥d*tlM If fff | | ♦ ♦♦♦***'• : RETURN 

8 1 DATt = "¥dW< < f f f f f f 1 1 : RETURN 

82 DATt = "¥d*W| I fff f | | 1 1 ff W : RETURN 

S3 DATt = »¥dW< <♦♦< <SSSS< < : RETURN 

34 DAT* = "*d*W« ◄ -*--«-*-*-*-* * » » > »»»■■ : RETURN 

35 DAT* = " Vd Wf fffffffff^ 4 WV : RETURN 

36 DAT* = -tdWf fffffff < <xxftr' : RETURN 

37 DAT* = "¥dWcoockk ► ► ► kom" : RETURN 

88 DAT$ = »td*t¥ffff < < < <ffffw : RETURN 
S3 DAT* = "¥d+Wffff < < * * i » « « : RETURN 

30 DAT$ = "»d*f^ 4 ■ ■ -*-»-00#4< 4 ¥¥¥'■ : RETURN 

100 POSITION 0,0: FOR ME=1 TO 10:7 »6; •• : NE 

XT ME:F OKE 708,31 

11© POSITION 0,2:7 ttS; player mi ssi 1 e" : 7 «6 : 7 ttS; 1 ' EJ 

STrSBdti' ■ : GO SUE 25 

120 GOSUE ASC ("J") : DATt (2,2) =CHR* (128) : GOSUB 30 : FOR X = 40 TO 
80:POKE 53248,X:NEXT X: POSITION 4,6:7 »6 ; J" 

130 GOSUE 25:GOSUB ASC("E"):DAT$(2,2)=CHRt(128):POKE 53248,2 
20:GOSUB 30:FOR X =220 TO 88 STEP -1 SPOKE 53243,XSNEXT X 
140 POSITION 5,6:7 ttS; ,, E":GOSUB 25:GOSUB ASC("R") :DAT$(2,2) = 
CHRt(128):POKE 53248,220:GOSUE 30 

150 FOR X =220 TO 36 STEP -1 SPOKE 53248,XSNEXT XlPOSITION 6,6 
: 7 «6J •■R" : GOSUB 25: GOSUB 30 

16© FOR X=96 TO 104:POKE S3248,X:NEXT X:POSITION 7,6:7 »6;”R 

•• S GOSUB 25 : GOSUB ASCC'V") : DAT* (2,2) =CHR* ( 1 28) 

170 POKE 53248,220:GOSUB 30:FOR X = 220 TO 112 STEP -1 SPOKE S3 

248,X:NEXT X:POSITION 3,6:7 «6j"Y":GOSUB 25 

180 POKE 71 0, 1 5 : POSITION 10,6:7 06; "»••: GOSUB 25: POSITION 11, 

6:7 «6 ; •■!*!■ ■ : GOSUB 25 

190 POSITION 12,6:7 »6 ;••!!••: GOSUB 25: POSITION 13,6:7 »6;”UI'*:G 
OSUB 25:POKE 704,15 

200 GOSUB ASC("E")SPOKE 53248,88:BAT*<2,2)=CHR*(128):GOSUB 3 
0:FOR M E =1 28 TO 144 STEP 2:BAT*(2,2)=CHR*(ME) :GOSUB 30 
210 NEXT ME:FOR X=88 TO 160:POKE 53248,XSNEXT XSFOR ME=144 T 
O 128 STEP -2:BAT*(2,2)=CHR *(ME) :GO SU B 30:NEXT ME 
220 POSITION 14,6:7 »6; "US'* : GOSUB 25 

290 FOR ME=1 TO 200:NEXT ME:FOR ME=2S0 TO 10 STEP -10:SOUND 

0,M E, 10,8:NEXT MESSOUND 0,0,0,0:POKE 53248,0 

300 POSITION 0,0:FOR ME=1 TO 10:7 «6;" »:NE 

XT M E:P OK E 704,31 

310 POSITION 7,2:7 »6; ■•PLAYER":POSITION 7,4:7 »6j"MISSILE"IG 
OSUB 25 

320 GOSUB ASC("T") :DAT *(2,2)=CHR*(127) :GOSUB 30:FOR ME = 40 TO 
104:POKE 53248,ME:NEXT ME 
325 POSITION 7,6:7 «6;”T”:DAT*=”":GOSUB 25 

330 GOSUB ASC("E") :POKE 53248, 152:DAT *(2,2)=CHR*(100) :FOR ME 
=100 TO 128 STEP 2:DAT*(2,2)=CHR*(ME)!GOSUB 30:NEXT ME 
333 FOR ME=152 TO 112 STEP -1 SPOKE 53248,ME:NEXT ME 

335 POSITION 8,6:7 #SJ"E":GOSUB 25 

340 GOSUB ASC("X"):DAT*(2,2)=CHR*(128):GOSUB 30:FOR ME=220 T 
O 120 STEP -1 SPOKE 53248,ME:N EXT ME 
345 POSITION 9,6:7 tt8;"X"5GOSUB 25 

350 GOSUB ASC("T") :F OK E 53248, 104:FOR ME=127 TO 144 STEP 2:D 

AT*(2,2)=CHR*(ME):GOSUB 30:NEXT ME 

355 FOR ME =104 TO 128SPOKE 53248,ME:NEXT ME 

360 FOR M E =14 4 TO 128 STEP -2:DAT*(2,2)=CHR*(ME) :GOSUB 30:NE 

XT ME 

365 POSITION 10,6:7 »S;"T":GOSUB 25 

380 FOR X=1 TO 3:SETCOLOR 0,X,2:FOR M=10 TO 250 STEP 10:SOUN 

D 0 , M , 10, X**3 : SOUND 1 ,M, 0,X«3 : POKE 71 2, M: NEXT M : NEXT X 
390 SOUND 0,0,O,0:SOUND 1,0,0,0:OP = 2:POKE 53277,0 SPOKE 7 12,0 
:FOR X=1 TO 2SS:FOKE 70S,XSNEXT X 

400 GOSUE 2S: GRAPHICS 0:FOKE 71 0,240: POKE 709,252: GOTO 5010 

3999 REM 

4000 REM ****-•« SETUP P/*M GRAPHICS **-»«* 

4001 REM 

5000 POKE 710,0:DIM DAT*(255),PM*C81),ERASE*(24) 

5010 FMABD=FEEK(106)-16:REM PM AREA 
5020 POKE 559,62:REM SINGLE LINE RES. 

5030 POKE 54279,PMADD 

5040 POKE 704,31:REM PLAYER 0 COLOR 
5060 PMBASE=(PMADD + 4)*2S6:REM PM 0 BASE 
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S070 £R ft S E * = ■ -hhnilhnm . ■ 

m^ a t y ‘ T * lhr>ithM ***~ '“tflMW• w '-'lf mP »/ ™iP »7Ma 

S0S0 POKE S3277,3:REM ENABLE PM 
S 1 00 IP OP=l THEN 100 
SI 4-0 REM 

S1S0 REM CREATE P^M STRINGS wm 

S1S0 REM 

5200 7 CHR*<125) :POKE 709,12:CLOSE ttl:OPEN n1,4,0„"K: :POKE 

7S2, 1 : 7 

S20S DIM DATS*(25B),YN*(1):K = 0:7 CREATE PLAVER STRI 

NG : : 7 

S220 7 :7 "ENTER PLAVER MISSILE NUMBER <0 TO 3)"; 

B22S GOSUB S0:GC=GC-48:IF GC<0 OR GC>3 THEN S220 
S227 K=K+1:DATS*(K,K)= CHR*(GO 

5230 GOSUB 7000:7 :7 :7 "ENTER VERTICAL POSITION (40-230)”; 

5232 GOSUB 50:GC=GC—4S:IF GC<1 OR GC>9 THEN S230 

5233 Vl=GC:GOSUB 50:GC=GC-49:IF GC<0 OR GC>9 THEN 5230 

5234 V2=GC:GOSUB S0:IF GC=1SS THEN VP=V1*10+V2:GOTO S239 

5235 GC=GC—48:IF GC<0 OR GC>9 THEN 5230 

S237 VP=V1«100+V2W10+GC:IF VP<40 OR VP>230 THEN 5230 
5233 K=K+1:DATS*(K,K)=CHR*(VP) 

5240 GOSUB 7000:7 :7 :7 "HOW MANV BVTES (1-255)"; 

5241 GOSUB 50:GC-GC-48:IF GC<1 OR GC>9 THEN 5240 

5242 Bl=GC:GOSUB S0:IF GC=155 THEN NB=Bl:GOTO 5250 

5243 GC=GC-48:B2=GC:GOSUB S0:IF GC=1SS THEN NB=B1*10+B2:GOTO 
5250 

5244 GC—GC-48:IF GC<0 OR GC>9 THEN 5240 

5247 NB=B1«100+B2*l0+GC:IF NB<1 OR NB>2SB THEN 5240 
S250 K=K +1:DATS*(K,K)=CHR*(NB) 

5250 7 CHR* (125): 7 :7 , •• ENTER "; NB; " BYTES :■■: FOR 1 = 1 TO NB 


5270 GOSUB 7000:7 :7 , " BYTE ■■;!;"= 

5271 GOSUB 50:GC=GC-4S:IF GC<0 OR GC>9 THEN S270 

5272 B1=GC:GOSUB S0:IF GC=1SB THEN BY=Bl:GOTO 5279 

5273 GC=GC—48:IF GC<0 OR GC>9 THEN 5270 

5274 E2=GC:GOSUB 50:IF GC=1SB THEN BY=B1»10+B2:GOTO 5279 

5275 GC=GC—48:IF GC<0 OR GC>9 THEN S270 

5277 BY = B1»100*E2«10+GC:IF NB<1 OR BY > 285 THEN 5270 

5279 K=K +1:DATS*(K,K)=CHR*(BY):NEXT I:K=K+1 

5280 7 CHR*(125):7 :7 :7 "ANOTHER DRWG IN THE SAME DISPLAY ( 

Y/-N) 


5282 GOSUB S0:IF GC=89 THEN DAT*(K,K)=CHR*(1 
GOTO 5220 

5284 IF GC < >78 THEN 5280 
5300 DATS*(K,K)=CHR*(0) 

5370 POKE 53248,0:P OK E 768,0:7 CHR*(12S):7 : 


? 


28):7 CHR*(125): 




5380 '? :" ( 1 ) FIX LINE « AND STRING NAME" 

5 4 00 ? "(2:) MOVE THE CURSOR OVER THE LINE":'? " AND PRESS 

asmuiau":? :? 


5 4 10 ■? ■■litPHiaH IF DATS* CONTAINS A ("; CHR* (34) ;■■),": ? " 

CHANGE IT TO A BLANK":'? " AND ADD THIS NEN LINE:" 

S420 7 " NNN DATS*(X , X )=CHR*(34)":? :7 "WHERE X IS THE 

POSITION OF THE BLANK":'? 

SSI© L = INT (K/90) : POKE -766,1 

5520 IF L=0 THEN 7 "996 DATS*=";CHR*(34);DATS*JCHR*<34):GOTO 
6000 

SS30 IF L=1 THEN 7 "996 DATS*(1,90)=";CHR*(34)JDATS*(1,90);C 
HR*(34):GOTO 5560 

5540 7 "996 DATS*(1,90)=";CHR*(34) ; DATS*(1,90) J CHR*(34) :7 "9 
97 DATS* (91,180) =■•; CHR* (34) ; DATS* (91,180); CHR* (34) 

5550 7 "998 DATS*(181,";K;")=";CHR*(34);DATS*(181,K);CHR*(34 
):GOTO 6000 

5560 7 "997 DATS*(91,";Kj")=";CHR*(34)JDATS*(91,K);CHR*(34) 
6000 GOSUB 25:POKE 752,0:POKE S3277,0:FOKE 766,0:CLOSE » 1:EN 
D 

7000 GOSUB 25:POKE 764,25S:RETURN 

9000 GRAPHICS 0:POKE 710,0:POKE 752,1:POKE 201,8:7 :7 :7 ," 


9020 7 : 7 " This program demonstrates -the use": 7 : 7 "of P 

layer' Missile Graphics and can be" 

9040 7 : 7 "used -to create strings from decimal"!? : 7 "play 

er data." 
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3060 7 :7 " Special -thanks to Fernando Herrera"!? :7 "for 

his contribution of the assembler" 

9080 7 : 7 "routines used to put players on the"!? :7 ••sor-e 

en and er ase . •• 

3100 7 : 7 •• Pr ess HilfBax to be^ i n . " : POKE 709,12 

3120 IF PEEK(S3279) < >S THEN POKE 755,1 :POKE 755,2:GOTO 9120 

3140 POKE 755,2!OP=l!GRAPHICS 18:GOTO 5000 

9500 REM XXXXXXXX X XXXXXXXXXXX 

9510 REM CONVERT PROGRAM DATA 
9515 REM ** TO STRING FORMAT ** 

3520 REM x^ x x xxx x- x -x x x xxxxxxxxx 

353© REM ENTER EACH LINE OF DATA AS SHOWN IN THE DOCUMENTATI 

ON LABELED "FMDEMO DATA FOR CREATING STRINGS. 

3540 REM 

3550 REM IN EACH CASE, THE DATA LINE NUMBER WILL BE 9900 (NO 

TE: DATA FOR PM* WILL USE LINES 9900, 9901, AND 9902). 

3560 REM 

35-70 REM AFTER CREATING DATA FOR EACH STRING, TVPE GOTO 9700 

AND PRESS RETURN. 

3580 REM 

9590 REM TVPE THE LINE NUMBER FOR THE STRING (NOT 9900). EX 

AMPLE: THE FIRST LINE NUMBER IS 10. 

3800 REM 

9610 REM TVPE THE STRING NAME INCLUDING THE *. EXAMPLE: THE' 

FIRST STRING NAME IS C* 

3620 REM 


3640 REM REPEAT THIS PROCEDURE FOR EACH STRING TO BE ENTERED 
(TOTAL=29). 

9650 REM 

3660 REM EXAMPLE FOR C* IN LINE 10 
3670 REM 

9680 REM **** ** x xxxxxxxxxxxxx xxx xxxxxxxxx 

3700 REM STRING DIMENSIONS FOR PROGRAM DATA TO STRI 

N G C ONV ER SI ON S 

3701 REM xxxxxx x xxxxxxxxxxxxxxxxxxxxxx 

3710 TRAP 3720:DIM NAME*(6),LINE*(4),C#(6),DAT*(100),ERASE*( 
24),PM*(81) 

9720 7 ;■? "ENTER LINE NUMBER"j:INPUT LINE* 

3730 TRAP 3720:LINE=VAL(LINE*):IF LINEC10 OR LINE>S080 THEN 

3720 

9740 7 :‘? "ENTER STRING NAME";: INPUT NAME* 

9750 LN = LEN (NAME*) :TRAF 9740: IF NAME* (LN, LN) < >■•*" THEN 9740 
9800 RESTORE 9900 : POKE 766, 1:7 : o LINE*;" " ; NAME* ; ■• = ■■; CHR* ( 3 

4 ) ; 

3820 TRAP 99S0:READ NUMBER:7 CHR*(NUMBER);:GOTO 9820 
9900 DATA 0,40,2,136,112,0 

3350 7 CHR* (34) ; : IF LINE>64 AND LINEOl THEN 7 " : RETURN" ; 
33S5 POKE 766,0:7 CHR*(28);:7 CHR*<28);:POKE 764,12 
9360 CLR :END 
10000 REM 


10010 REM SEE DOCUMENTATION FOR INFORMATION ON CONVERTING DA 
TA TO STRINGS 
10020 REM 


1 0030 

R EM 

THE FOLLOWING IS A LIST OF 

LINE 

NUMBERS AND 

M TEXT WHERE 




1 0040 

REM 

TEXT 

MUST BE ENTERED IN INVERSE 

VIDEO. 

1 0050 

REM 





1 0060 

R EM 

LINEfl 

INVERSE VIDEO TEXT 



1 0070 

REM 





1 O080 

R EM 

1 1 0 

demo by 



1 0030 

R EM 

1 80 

W H 



1 0 1 00 

R EM 

1 30 

I T 



101 10 

R EM 

2 20 

E 



10 120 

R EM 

5370 

TO ENTER THE STRING 

IN VOUR program: 

1 0 1 30 

R EM 

5400 

RETURN 



10 14 0 

R EM 

54 1 0 

NOTE : 



1 0 1 50 

REM 

9000 

PLAVER MISSILE DEMO 



1 0 1 60 

R EM 

3 1 00 

START 
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Chapter 18 

Disk-Based Inventory (INVENT) 

This program creates a 100-record inventory file and permits the 
user to update it by using a method called random access. Random 
access allows immediate access to any given record in a file without 
reading each record in the file each time you request a record. 

The initial program display consists of three options. First we must 
create a data file. Type the number 1. This will send the program to 
line 100. Here we create a 100-record data file. Each record will 
contain a record number, an item count, and an item description field. 
The fields are separated by commas. As the file is created, it will be 
displayed on the screen. After record 100 is written, the file is closed 
and you will be returned to the three original options. 

Now type the number 2. In order to use random access updating, 
we must know exactly where each record begins on the disk. Before 
updating, the program will create an index using arrays in memory. 
Once this is done, we can instantly find any record using the POINT 
instruction. First, we must NOTE the current disk location and store 
sectors and bytes in our arrays. We only have to do this once; then we 
can inspect or change as many records as needed. 

The index is created using the routine starting at line 300 and 
ending at 420. The beginning of the random access routine is at line 
500. 


At line 310, we check a flag to see if an index has already been 
created. If so, we do not have to repeat this procedure. To create the 
index, we read the data file. Before reading each record, we NOTE the 
sector and byte position and store it in our SEC and BYT arrays. 


Once the array is completed, we are ready to display or update 
any record in the data file using the POINT instruction to locate the 
record. Let’s start by displaying record 50. Type 0 and press QJUQJ]. 
Then type 22 and press QgJUJJ]. At line 760, we POINT to the sector and 
byte of record 50. At line 780, we INPUT that record, clear the screen, 
and display record 50 on the screen. 

Remember the number of items in this record! Press any key and 
you will be returned to the option routine at line 5000. This time, type 
the number 0, then 0 and press QJJJJJJJ]. Type 2] and press [jjJJTQJ]. 

Record 50 will again be displayed, but now we have 3 new options. 
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Let’s take them in order. Type Q and then press QJJJQJ]. To update the 
quantity, we can add to it by typing the number of items to add, or 
subtract from it by typing a negative number. Remember that our 
quantity field is only 3 positions, so don’t increase it to more than 999 
items. 


When we read the record from the data file, we stored it in a 
string REC$. The quantity field has just been updated only in the string. 
It will be updated only on the disk when we choose option 3 to EXIT. 
Before we exit, let’s change the description field. Type 0 and press 
1:1*111:1?! - Choose a new description and type it in. Now type 0, and the 
record will be updated on the disk. 

To be sure that the record has been changed properly, you can 
choose the display/update option to display record 50. By now you see 
the advantage of random access updating again: You don’t have to 
read the first 49 records to get to record 50. Using this random access 
method, we can locate any record in a disk data file instantly. 

NOTE: The ATARI BASIC ROUTINES diskette contains DOS 20S. 
You must boot your system using DOS 20S prior to using the INVENT 
program. 


20 REM INVENTORY TUTORIAL PROGRAM TO DEMONSTRATE RANDOM ACCE 
SS UPDATING 

30 REM ***** BY JERRY WHITE ***** 

40 REM ORIGINALLY PUBLISHED IN A.N.A.L.O.G. 4O0/800 MAGAZINE 


50 DIM SEC(100),BYT<100), REC*(30),DES»(30),CHOICE*(1):CI=0:G 
OTO S00O 

100 REM ***** CREATE INITIAL DATA FILE *** 

11© FOR B L ANK = 1 TO 30 : REC* ( BLANK , BLANK ) =" : NEXT BLANK 

120 CLOSE III IOPEN »1,8,0, "D I DATAFILE- 

130 REC* (4,4) = ", " :REC* <8,30) =••, ITEM DESCRIPTION FI ELD" 

140 FOR Ft E C OR D = 1 TO 100 

160 IF RECORD <10 THEN REC*(1,2)="00”:REC*(3,3)=STR*(RECORD) ! 
G OT O 22© 

180 IF REC OR D <10 0 THEN REC*(1 , 1 )="0»:REC*(2,3)=STR*(RECORD) ! 
GOTO 220 

2O0 REC*(1,3)=STR*(RECORD) 

220 REC*(5,7)=STR*(RND<0)*100+100> 

240 PRINT »1 JREC*!? : 7 “RECORD ; RECORD : *7 REC* : NEXT RECORD 

260 CLOSE 1*1 : GOTO 8000 

300 REM ***** CREATE INDEX ***** 

310 IF CI=1 THEN RECORD=l01:GOTO S00 

320 TRAP 2000:CLOSE «2:OPEN «2,4,0,"D:DATAFILE"ITRAP 40000 
360 FOR ARRAYsl TO 100:NOTE 02,SECTOR,BYTE 

360 *? : *? “RECORD ARRAY;" SECTOR “J SECTOR;" BVTE “; BVTE 

4O0 SEC(ARRAY)=SECTOR:BYT(ARRAY)=BYTE:INPUT «2,REC*:NEXT ARR 

AY- 

420 CLOSE t*2 : CLOSE 03:CI = 1 

SCO REM ***** RANDOM ACCESS DATAFILE ***** 

520 CLOSE »4:OFEN 04,12,0,"D:DATAFILE" 

540 *? CHR*(125) :? I'? "TYPE D TO DISPLAY A RECORD":'? : *7 "TYPE 

U TO UPDATE A RECORD"; 

560 INPUT CHOICE*:IF CHOICE*="D" THEN 700 
580 IF CHOICE*="U" THEN 900 
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G00 7 CHR* ( 2S3) : GOTO S40 

700 <? :<? "TYPE RECORD NUMBER TO DISPLAY"; :TRAP 700: INPUT RM: 

TRAP 40000 

720 IP RN < ARRAY AND RN>0 AND RN=INT(RN) THEN 780 

740 <7 CHR*(2S3):7 ■■INVALID RECORD NUMBER" : GOTO 700 
760 POINT a4,SEC CRN) ,BYT CRN) 

780 INPUT n4,REC*:7 CHR*C12S):7 : ■? •■RECORD ";RN:7 : o RED* 

60 0 7 : 7 "PRESS ANV KEY FOR OPTIONS :•■: POKE -*64,2SB ; CLOSE #4 
820 IF PEEK(764) < >2SB OR PEEK(S3279) < >7 THEN POKE 784,268:GO 
TO B000 
840 GOTO 820 

900 7 ; 7 "TYPE RECORD NUMBER TO EE UPDATED"TRAP 900 : INPITT 

RN:TRAP 40000 

920 IF RN<ARRAY AND RN>0 AND RN=INT(RN) THEN 9EO 

940 7 CHR*(2B3):7 "INVALID RECORD NUMBER":GOTO 300 
960 POINT »4 ,SEC CRN > ,BYT CRN) 

980 INPUT »4,REC*:7 CHR*(12S) 

1000 7 ;7 "RECORD ";RN:7 ;7 REC* 

1010 7 :7 "TYPE 1 TO UPDATE QUANTITY":7 "TYPE 2 TO CHANGE DE 

SCRIPTION”:7 "TYPE 3 TO EXIT" 

1020 TRAP 1000:INPUT CHOICE:TRAP 40000 

1040 IF CHOI CE < 1 OR CHOICE>3 OR CH OI C E < > I NT (CHOICE! THEN c 
HR*(2S3):GOTO 1000 

1060 ON CHOICE GOTO 1100,1300,1080 

1080 POINT «4,SEC(RN),BYT(RN):PRINT 04,REC*:CLOSE 04:GOTO 80 
00 

1100 7 ;7 "TYPE POSITIVE NUMBER TO INCREASE ITEMS":7 "TYPE N 

EGATIVE NUMBER TO DECREASE ITEMS" 

1140 TRAP 1100:INPUT NUMBER:TRAP 40000 
1 180 ITEMS=VAL(REC»(S,7) 1 :IT EM S = IT EM S + NUM B ER 

1180 IF ITEMS > 999 THEN 7 CHR*(2S3>:7 "ITEMS CANNOT EXCEED 83 

9":GOTO 1100 

1200 IF ITEMS < 0 THEN 7 CHR*<2S3) :7 "ITEMS CANNOT BE A LESS T 

HAN ZERO":GOTO 1120 

1220 IF ITEMS <10 THEN REC* ( B , S ) ="00“ : REC* ( 7,7 1 =STR * ( ITEMS , : G 
OTO 1000 

1240 IF ITEMS <100 THEN REC* C B , B ) = "0" : REC* 1 ' 8,7 ■, =STR* ITEMS , ■ g 
OTO 100O 

1280 REC*(5,7)=STR*(ITEMS):GOTO 1800 

1300 7 CHR*(125):7 :7 "RECORD ";RN:7 :7 REC* 

1320 7 :7 "TYPE NEW DESCRIPTION UP TO 22 POSITIONS" 

1340 INPUT DES* : LD = LEN <DES* 

1380 IF L D > 2 2 THEN 7 CHR*(2B3) :7 "FIF L D TOO LONG, EXTRA IGMn 

RED- 

1330 IF LD=22 THEN 1420 

1400 FOR BLANK = LD TO 22 : DES* (LEM (DES* ) + 1 )=" ":MT:XT BLANK 
1420 REC*(9,30)=DES*:GOTO 1000 

2000 7 CHR*(2S3):7 :7 "DATAFILE NOT ON DISK:TRAP 40000” 

2010 FOR WAIT =1 TO B00:NEXT WAIT:GOTO S000 
B000 REM INITIAL DISPLAY' OF OPTIONS 

50 1 0 GRAPHICS 18:7 06 : 7 08;" INVENTORY OPTIONS:":': tjR • 7 jr ■ ■■ 
1= CREATE FILE" 


5020 

GRAM* 

•? »S : O «6; • 

• 2 = 

display/update":? «e:? »e 

: 3 - 

: EM D PF 

5040 

5060 

CLOSE #5:OPEN »5 
IF G C < 1 OR GO 3 

.4,0, 
TH EM 

. ••K : : GET »?, GC : CLOSE 

5000 

ns : GC 

— G C 4 S 

5080 

6 0 0 0 

GRAPHICS O: 

: POKE 

82, 1 : 

: S ET C O L OR 2,0,0: ON G C 

G OT 0 

100,30G 

6000 

GRAPHICS O: 

: P OK E 

32, 2 : 


: RUN ■■ 

■D :menu* 
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Chapter 19 

Delete BASIC Lines (DELETE.LST) 

Before you may use DELETE.LST, the program from which you will 
delete lines of BASIC code must be in memory. Your program cannot 
use any of the same line numbers as DELETE.LST (lines numbered 
31999 or higher). 

Enter D:DELETE.LST. In the immediate mode, enter the BASIC 
command [JiSjIHiliE an d press QJJJQJ]. When you are asked, enter the 
lowest and highest line numbers to be deleted. All line numbers in the 
range you specified will be deleted at the rate of approximately 25 per 
second. During this process, your screen will be blank. 

When this process is finished, the screen will display the following 
message: 

“SAVE NEW PROGRAM WITH LIST COMMAND.” 

If you have other lines to delete, repeat the process as often as 
needed. When all of the desired lines have been deleted, LIST your new 
program onto disk with the following command: 


LIST"D:FILENAME", 0,31999 


Be sure to give the NEW command before reentering the file from 
disk. Test your new program, and LIST or SAVE it on cassette or 
diskette. 

NOTE: DELETE.LST will not delete any line number above 31999. 
Many utility programs written in BASIC will use the line numbers 
above 29999. It is therefore good practice not to use these line 
numbers. 

32000 GRAPHICS 0:POKE 82,2:TRAP 32000:? “STARTING LINE TO DE 
LETE-; :INPUT SD:IF SD >31999 THEN 32000 

32002 TRAP 32002:? “LAST LINE TO DELETE"INPUT ED:IF ED < SD 
OR ED>313S9 THEN 32000 

320O4 DEL=ED-SD:SC=INT(DEL/20)STRAP 32016 

3 200 S FOR ME = 0 TO SC:GRAPHICS 0:POKE 559,0:POSITION 2,3:FOR 
D=0 TO 19:LINE=ME*20+SD+D 

32008 IF LJNE > ED THEN POP :GOTO 32012 
320 10 *? LINE: NEXT D 

32012 ? “CONT“:POSITION 2,0:POKE S42,13:STOP 
32014 POKE 842,12:NEXT ME 

32016 TRAF 40000:GRAPHICS 0:POKE 5S9,34:? “SAVE NEW PROGRAM 
WITH LIST C OMM AN D.“:EN D 

32020 REM DELETE.LST (cO 1981 by Jerry White — Version 1.0 1 

0 S 1 3/'SI 
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Chapter 20 

(A.LST, B.LST, D.LST, E.LST, F.LST, G.LST, I.LST) 

Compare Atari’s DOS 20S to the old DOS 1. The new DOS has both 
advantages and disadvantages. Bugs in the first version have been 
corrected, and the latest version requires less RAM because its utility 
package is loaded only when the DOS Command is issued. A big 
disadvantage will be noticed at this time. 

The utilities will be loaded into your program area unless you have 
a MEM.SAV file. If you use the MEM.SAV option, it will take about 30 
seconds to delete the prior MEM.SAV file, save the current program 
area, and load the DOS utilities (DUP.SYS). 

Many of these utilities can be accessed much faster by using small 
BASIC routines. These routines can be stored on your work diskettes 
and called using the ENTER command. Each of these BASIC utilities 
begins at line number 32000. Entering them will not disturb your 
program in RAM as long as it does not use the same line numbers. 

These routines must be listed onto disk; do not use the SAVE 
command. We will use single-letter file names which correspond to the 
similar DOS options except for the letter B. For example, we use the 
DOS option A for a disk directory. The A routine will be listed onto the 
diskette with the command LIST“D:A”. To use the A routine, type 
LUUmgLH and press (jJJjHjJJ]. Then type and press 22EJ]. 

Each routine has been kept as short as possible so that il can be 
used quickly, will use very little memory, and will require very little 
room on your disk. User input must be entered properly since there is 
no error trapping. (Error trapping can be added if you decide it’s 
necessary.) If you do make a mistake, it is simple enough to start over 
by typing MOtoKMUiH]. 

The B routine is used as a reminder menu of the BASIC utility 
options available. The D, E, F, G, and I routines do just what the 
corresponding DOS options do. The user input to these routines via 
keyboard is slightly different. 

When using the D, F, and G options, you must specify the disk drive 
to be used. For example, to delete a file called “test” from drive 1, you 
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would type [>2Q2. If that file is to be deleted from drive 2, the command 
would be [>QS22]. LOCK and UNLOCK (F and G) work the same way. 

When using the RENAME and FORMAT DISK (E and I) routines, 
drive 1 is assumed. To rename that TEST file to TEST10, you would 
simply type HMHItllfil . 

Study these little programs. They demonstrate only a few of the 
many uses of the X10 command. The A routine will show you how to 
access the disk directory by opening the directory file with the operand 6. 

Using these BASIC programs instead of DOS will save you time 
and eliminate the possibility of losing a program in memory by calling 
DOS. You can call in one of these routines after another since the 
ENTER command causes identical line numbers to overlay new over 
old. You need not delete one before using another. 

These BASIC utilities will come in very handy. You’ll only wish you 
had learned them sooner! 

32000 CLR : GRAPHICS 0 : DIM R«(20) : OPEN »1 : <? ■■ 

DI SK DIR E CT ORV " : ? 

32010 TRAP 32030:INPUT ttl,R*:IF R$(5,16)="FREE SECTORS" THEN 

3 2030 

3202O ’? R$ : GOTO 32010 
32030 7 R* :CLOSE #1 SEND 

32000 GRAPHICS 0:’? : ? , "BASIC DISK UTILITIES":? S'? , "A= DISK 

DIRECTORY"!? S'? , "B = LIST OF UTILITIES" 

32010 •? : •? # "D = DELETE FILE":'? S'? , "E = RENAME FILE" S'? S'? , "F 
= LOCK FILE”:’? :? 3 * ■ G = UNLOCK FILE" 

32020 ’? S’? ,"I= FORMAT DISK":'? S'? , "ENTER PROGRAM ? . LST" S ? : 


? , "TV 

PE G 0 

TO 32000 RETURN" 

: END 

3 2000 
320 1 0 

CLP: : 

GRAPHICS 0:? :? 

"ENTER Do:FILE"; 

# "DELETE FILE"S DIM F*(20) 

: input f*:xio 33,01,0,0 ,f*:end 

32000 
32© 1 0 

CLR : 

GRAPHICS 0:? S'? 

"ENTER Do:FILE"; 

"LOCK FILE":DIM F*(20> 

: INPUT F*:XIo 36,01,0,0 ,f*:end 

32000 
320 1 0 

CLR : 
•? : ? 

; GRAPHICS 0:? S'? 

"ENTER Do:FILE"; 

"UNLOCK FILE"SDIM F*(20) 

•.INPUT F* SXIO 36,01,0,0,F*: END 


32000 GRAPHICS OS'? : *? "FORMAT DISK":? S'? "INSERT DISK TO FOR 
MAT IN DRIVE 1":'? S'? "PRESS START WHEN READY" 

32010 IF PEEK<53279)<>6 THEN 32010 

32020 ’? S'? "PRESS OPTION KEY TO FORMAT DISK" 

32030 IF PEEK(S32?9)<>3 THEN 32030 
32040 XIO 2S4,»1,0,0,"D1S"SEND 

32000 CLR : GRAPHICS 0 : DIM FIN* (20) , F OUT f (20) f Xt (40) S? S'? "RE 
NAME FILE" 

32010 *? S'? "ENTER OLD NAME"; :INPUT FIN*:? S'? "ENTER NEW NAME 
INPUT FOUT* 

32020 X* = "D: ":X* CLEM(X*)+ 1 )=FIN*SX*(LEN(X*) + 1 > =","SX*(LEN(X* 
i + 1 >= F OUT♦SXIO 32,01,0,0,X*:END 
32030 ? R* S CLOSE ol SEND 
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Chapter 21 

CONSERVING MEMORY 

Here are a few memory-saving techniques in Atari BASIC. Always 
define your most often used numeric constants as variables. I have 
found that you can save hundreds and even thousands of bytes this 
way. 

For example: 

1071+1+1+1+1+1+1+1+1+1 
uses 85 bytes. 

10X=1:? X + X + X + X + X + X + X + X + X + X 
uses 54 bytes. 

Define variables by reading data: 

10 A = 1:B = 2:C = 3:D = 4:E = 5:F = 6:G = 7:H = 8:1 = 9:J = 10 
uses 232 bytes. 

10 READ A,B,C,D,E,F,G,H,I,J: DATA 1,2,3,4,5,6,7,8,9,10 
uses 147 bytes. 

Use strings instead of arrays whenever possible. Each element of 
an array costs an additional 6 bytes. Each position within a string costs 
only 1 byte. 

Remove REM statements and keep at least two versions of your 
program. The remarks are important, so keep a backup version which 
includes remarks, but removing REMs from your program will save 
memory and increase efficiency. 

Keep the number of variables used to a minimum. You will save 8 
bytes for each variable plus one byte for each character in its name. 

Concatenate lines whenever possible to increase program speed 
and save three bytes per line. 

Use POKE commands instead of SETCOLOR and Cursor Control 
Characters instead of POSITION commands to save lots of memory. 

Use strings for storing data that must be displayed or printed 
repeatedly. For example, make a Clear Screen and Display Heading 
subroutine instead of repeating lines of code. 
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Chapter 22 
PROGRAM SPEED 

There are many factors that affect the speed of Atari BASIC. The 
Graphics Mode being used is one of them. 

As a test, we will use a FOR NEXT loop to count to 1000. We will 
time the loop in Graphics Modes 0 thru 8 by jiffies or l/60ths of a 
second. Consider the following one liner where M = MODE: 

10 GRAPHICS M:POKE 19,0:POKE 20,0:FOR X = 1 TO 1000:NEXT X:? 
PEEK(19),PEEK(20) 


MODE JIFFIES 

0 123 

1 103 

2 102 

3 89 

4 90 

5 92 

6 95 

7 101 

8 120 

If we disable DMA before the loop with a POKE 559,0 and 
reenable it with a POKE 559,34 after the loop, the result is 84 jiffies no 
matter which mode is used. 

This experiment reveals information that’s strange but true. 
Graphics Mode 8 is faster than Graphics Mode 0. Graphics Mode 7 is 
slightly faster than Modes 1 and 2. This is due to the fact that text 
modes must look at the character set for every position on the screen. 

If you want to see a much greater difference in the time it takes for 
a FOR NEXT loop to execute, try the same line at the beginning of a 
program, then try it at the end of the same program. The bigger the 
program, the bigger the difference. If the program is rather large, the 
loop at the end might take 10 times as long as the loop at the beginning. 

For this reason, frequently used subroutines should always be 
placed near the beginning of a program. Introductory displays, DIM 
statements, and other one time routines should be put near the end. 
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Chapter 23 

USING MEMORY LOCATIONS TO PEEK AND POKE 

POKE 16,64:POKE 53744,112 to disable the BREAK key. 

P18 = PEEK(18):P19 = PEEK(19):P20 = PEEK(20) to read the clock. (See 
the TIMER program) 

POKE 65,0 to shut off I/O noises like disk beeps. 

POKE 77,0 to reset attract mode screen color changes. 

POKE 82,X sets left screen margin to X. 

POKE 83,X sets right screen margin to X. 

ROW = PEEK(84) returns the current row position of the cursor in a 
graphics window. 

COL = PEEK(85) + PEEK(86)*256 returns the current column position of 
the cursor in a graphics window. 

POKE 87,0 fools the O.S. into thinking you are using mode 0 without 
changing modes. 

SA = PEEK(88) + PEEK(89)*256 returns the low address of screen 
memory or the upper leftmost position on the screen. 

OROW = PEEK(90) returns the old or previous cursor row in a graphics 
window. 

OCOL = PEEK(91) +PEEK(92)*256 returns the old or previous cursor 
column in a graphics window. 

OCHR = PEEK(93) returns the character under the graphics window 
cursor. 

NR = PEEK(96) returns the row of the DRAWTO destination. 

NC = PEEK(97) +PEEK(98)*256 returns the column of the DRAWTO 
destination. 

TOR = PEEK(106) returns the top of RAM in pages. NOTE: Each page is 
256 bytes. 

LOM = PEEK(128) + PEEK(129)*256 returns BASIC’s low memory 
pointer. 

VN = PEEK(130) + PEEK(131)*256 returns the starting address of the 
variable name table. 
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EVN = PEEK(132) + PEEK(133)*256 returns the ending address of the 
variable name table. 

VVT = PEEK(134) + PEEK(135)**256 returns the address of the variable 
value table. 

STA = PEEK(136) + PEEK(137)*256 returns the statement table 
address. 

CSA = PEEK(138) + PEEK(139)*256 returns the address of the current 
statement. 

SAT = PEEK(140) + PEEK(141)*256 returns the string array table 
address. 

STA = PEEK(142) + PEEK(143)*256 returns the run time stack address. 

TOM = PEEK(144) + PEEK(145)*256 returns BASIC’s top of memory 
pointer. 

ERL = PEEK(186) + PEEK(187)*256 returns the line number where an 
error or stop occurred. 

ERN = PEEK(195) returns the error number. 

POKE 201,X sets the print tab width to X. 

VUS = PEEK(212) + PEEK(213)*256 returns the value from a USR 
function. 

RD = PEEK(251) returns 0 for radians or 6 for degrees. 

JIF = PEEK(540) returns the value of a counter that counts back to zero 
in 60ths of a second. 

POKE 559,0 disables the screen for faster calculations, POKE 559,34 
restores the screen. 

DLA = PEEK(560) + PEEK(561)*256 returns the address of the display 
list. 

PHV = PEEK(564) returns the horizontal value of the light pen. 

PW = PEEK(565) returns the vertical value of the light pen. 

POKE 580,1 causes the system to reboot when SYSTEM RESET is 
pressed. 

POKE 623,X sets the player/playfield priority. POKE 1 sets all players, 
A;; playfields, and the background. POKE 2 sets players 0&1, all 
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playfields, players 2&3, and the background. POKE 4 sets all 
playfields, all players, and the background. POKE 8 sets playfields 
0&1, all players, playfields 2&3, and the background. 

PD = PEEK(624) returns the value of paddle 0. The following 7 locations 
return the values of paddles 1 thru 7. 

STK = PEEK(632) returns the value of joysticks 0. The following 3 
locations return the values of joysticks 1 thru 3. 

STG = PEEK(644) returns 0 if joystick 0 trigger is pressed. The following 
3 locations return 0 if joystick triggers 1 thru 3 are pressed. 

CTR = PEEK(656) returns the cursor row in the text window. 

CTC = PEEK(657)+PEEK(658)*256 returns the cursor col umn in the 
text window. 

IVF = PEEK(694] returns 128 if inverse video or 0 if normal. 

SHF = PEEK(702) returns 0 if lower case, 64 if the shift key is pressed, 
and 128 if the control key is pressed. 

POKE 704,X sets the color of player and missile 0 to X. The following 3 
locations set the color of players and missiles 1 thru 3. 

POKE 708,X sets color register 0 to X. The following 4 locations set col¬ 
or registers 1 thru 4. 

OST = PEEK(741) + PEEK(742)*256 returns the O.S. top of memory 
pointer. 

OSB = PEEK)743) +PEEK(744)*256 returns the O.S. bottom of memory 
pointer. 

POKE 752,1 turns the cursor off and POKE 752,0 to turns it back on. 
PEEK(753) returns 0 if no key is being pressed. 

POKE 755,0 turns off inverse video, POKE 755,2 sets the video to nor¬ 
mal, and POKE 755,4 sets vertical reflect. 

POKE 756,224 for upper case. POKE 756,226 for lower case. 

LAC = PEEK(763) returns the last ATASCII character read or written 
or a graphics point value. 

LKP = PEEK(764) returns the internal code of the last key pressed. 
POKE 765,X sets the color for an X10 fill to X. 
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POKE 766,1 displays control characters. Use POKE 766,0 to react to 
them. 

POKE 767,1 stops screen scroll. Use POKE 767,0 for normal CTRL/1 
START/STOP. 

POKE 838,163:POKE 839,238 sends the screen display to the printer. 
POKE 838,166:POKE 839,238 returns to normal. 

POKE 842,13 sets normal read mode. POKE 842,12 sets the normal 
write mode. 

POKE 1802.X sets the number of disk drives in your system to X. (See 
DOS 2 manual for further information.) 

POKE 1913,80 turns off the read after write verifications in DOS 20S. 
POKE 1913,87 resets normal read after write. 

POKE 53248.X sets the horizontal position of player 0. Read this loca¬ 
tion to detect missile 0 for playfield collisions. The next 3 locations are 
similar for the next 3 players and missiles. 

POKE 53252.X sets the horizontal position of missile 0. Read this loca¬ 
tion to detect player 0 for playfield collisions. The next 3 locations are 
similar for the next three missiles and players. 

POKE 53256.X sets the size of player 0. POKE 0 for normal, 1 for dou¬ 
ble, and 3 for quadruple width. Read this location to detect missile 0 for 
player collisions. The following 3 locations are similar for players and 
missiles 1 to 3. 

POKE 53279,0 clicks the console speaker. Read this location to detect 
OPTION, SELECT, and START buttons. If no button is pressed, 
PEEK(53279) will return 7, 6 means START is pressed, 5 for SELECT, 
and 3 for OPTION. 

POKE 53760.X SOUND for channel 1 frequency. 53762 = ch2, 
53764 = ch3, 53766 = ch4. 

POKE 53761.X SOUND for channel 1 control. 53763 = ch2, 53765 = ch3, 
53767 = ch4. 

POKE 53768.X SOUND CONTROL. Used to set sound filters, distor¬ 
tions, etc. 

PEEK(53775) contains 251 if a key is pressed, 255 if no is key pressed, 
and 247 if the shift key is pressed. 
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LOADING INSTRUCTIONS 
BASIC ROUTINES FOR THE ATARI 

To avoid potential problems, please take a few moments to read 
the following instructions before running any of the BASIC routines. 

Disk: First, insert the ATARI BASIC cartridge into the left slot (the 
center slot on the ATARI 400). Next, insert the BASIC Routines disk 
into the disk drive. Turn the computer on. The disk will read for a few 
seconds and BASIC Routines menu will be displayed. To select a 
routine, type the number of the Routine. 

Tape: To load a routine from cassette tape, you will have to cue the 
tape to the beginning of the desired routine. (If you have an ATARI 
recorder, it will be necessary for you to cue the tape on a separate 
recorder.) Listen for the name of the routine; it will be audible just 
before it begins. To load any routine other than the ones followed by an 
asterisk (*) (see routine listing below), cue the tape, type BJjEJjJ, hit 
B3H3J] and start the tape. The program will then load. Once it has 
successfully loaded, the screen will display a READY prompt. Type 
QJJJ]. The program will then execute. 

To load a BASIC list format subroutine (indicated with an asterisk 
(*) on the listing below), the programs on the tape are in the CLOAD 
format and will have to be saved to a separate blank tape in the LIST 
format before they can be used with your programs. Follow these steps: 

(1) Cue the subroutine you wish to use on a separate cassette 
recorder as instructed above. 

(2) When the program is cued, type HEH3 and then touch (jJjJJJJJ]. 

(3) Once the program has successfully loaded, the READY prompt 
will be displayed 

(4) I nsert your blank tape into the cassette player and type 

Hit iiilUUil. The subroutine will then be saved to your tape in 
the LIST format. 

To execute a subroutine in a program: 

(1) Load the program that you will be using the subroutine with 
and then remove the tape. 

( 2) Cue the subroutine you wish to use and type: MHcnal . Now, 
press LttliUiUJ. 

(3) The subroutine and your program will be merged and stored 
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into the computer’s memory. You can now save the combined routines 
to your own tape by typing 

BASIC Routines for the ATARI are recorded in the following order: 

BASSNOTE 

BINCOV 

DICE 

ENGLISH 

JOYSTICK 

GRAPH 

INVENT 

MUSICEND 

PMDEMO 

R JUSTIFY 

SORTDEMO 

SOUNDDEMO 

TIMER 

HELLO 

MODE 123 

TABDEMO 

GR8TEXT 

PADDLE 

KEYDEMO 

DELETE * 

A * 

B * 

D * 

F * 

G * 

I * 

E * 


NOTE: Always type Q22EQ before you save a program to tape. This 
ensures the integrity of your program. Programs can be saved by using 
one of two methods: (1) or (2) tlKIM . 
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